Witam
Potrzebuję pomocy.
Muszę do komponentu memo wygenerować 'x' linii a w każdej znich 'y' znaków. Znaki powinnny być wygenerowane losowo.
Proszę o pomoc
generator liczb losowych
- Rejestracja: dni
- Ostatnio: dni
0
- Rejestracja: dni
- Ostatnio: dni
- Postów: 507
1
var
linia: string;
i, j: integer;
begin
Randomize;
{EDIT - czyszczenie Memo}
Memo1.Lines.Clear;
for i := 1 to X do
begin
linia := '';
for j := 1 to Y do
linia := linia + Char(Random(255) + 1);
Memo1.Lines.Add(linia);
end;
end;
- Rejestracja: dni
- Ostatnio: dni
- Postów: 7923
0
właśnie miałem pisać to samo :P
A co do kodu to lepiej ograniczyć się do "widzialnych" znaków, czyli od 32 wzwyż
- Rejestracja: dni
- Ostatnio: dni
- Postów: 507
0
Czyli, żeby nie było wątpliwości:
for j := 1 to Y do
linia := linia + Char(Random(224) + 32);
- Rejestracja: dni
- Ostatnio: dni
- Postów: 1668
1
chyba, ze chcesz losowac z konkretnych znakow, wtedy:
var S:String
begin
S:='qwertyuiopQWERTYUIOP';
[...]
linia:=linia+ S[ random(length(S)-1) +1];
- Rejestracja: dni
- Ostatnio: dni
0
Dzięki ;P