Jak zrobić aby po kliknieciu na buttona program generował coraz inne hasło 25 cyfrowe!!.Z góry dzieki!!. :-|
[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));