kod generatora łańcuchów

0

Poszukuje kodu dla delphi który generuje z podanych znaków (A-Z, a-z, 0-9) łańcuch każdej długości od x do y (tak, kodu do generowania haseł). Myślełem o zrobiniu takowego na pętlach które dyktowały by długość łańcucha i kolejne znaki ale coś nie bardzo mi idzie. Było by fajnie jak by któs mnie naprowadził albo zapodał jakieś <ort>źrudła</ort>.

0

Stwórz sobie tablicę ze znaków, które mogą wchodzic w skład tego łańcucha, a następnie :

Lancuch := '';
for i := 1 to DlugoscLancucha do begin
    i := Random(Length(Tablica) +  1);
    Lancuch := Lancuch + Tablica[i];
end;

Oczywiście wczesniej użyj Randomize ( w OnCreate formy na przykład).

1 użytkowników online, w tym zalogowanych: 0, gości: 1