Generowanie nowego hasła!!.

[glowa] PRZESTAŃ FLOODOWAĆ NA FORUM GŁUPIMI ODPOWIEDZIAMI JA TEZ CI GŁUPIO ODPOWIEM!! [diabel] :-[

Narysuj sobie hasło w paincie. :P

Random + Randomize + Ord + Chr + F1

Przejdź pierw po:
FAQ,Artykułach,Gotowcach a potem zadawaj pytanie na forum.

Najpierw zajrzyj do Helpa!!

A tak na marginesie patrz na przedostatnią i ostatnią linijkę mojej sygnaturki. Bo sam mowisz do innych o edytowaniu postów a tego robic nie umiesz. :P

Skorzystaj z generatora haseł !!. :|

Zgadzam się z Szymkiem! :-D. Spróbuj:
[code]random(999999999)[/code]
Dziewięciocyfrowe hasło powinno wystarczyć.

np. tak:
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c :integer;
begin
randomize;
a := random(999999999);
b := random(999999999);
c := random(9999999);
Edit1.Text := IntToStr(a) + IntToStr(b) + IntToStr(c);
end;

A jezeli chce zrobic zeby cyfry nie generowaly sie losowo tylko z kolejnym nacisnieciem buttona kolejna cyfra 1,2,3.... to jak bedzie wtedy wygladal kod. ?

Tworzysz zmienną globalną i zwiększasz jej wartośc po kliknięciu.

Var I:Integer=0;

Button --> OnClick

Inc(I);
ShowMessage(IntToStr(I));