Thema: Delphi Zufallszahlenproblem

Einzelnen Beitrag anzeigen

MikeS

Registriert seit: 3. Mai 2003
Ort: München
157 Beiträge
 
Delphi 7 Professional
 
#3

Re: Zufallszahlenproblem

  Alt 19. Jan 2004, 09:18
Du hast beim kopieren vergessen die zuweisung auf deine Label zu ändern!
Sonst hättest du auch überall andere Zahlen!

Zitat:
aktie1 := random(200) + 1;
label2.Caption := IntTostr(aktie1) + ' €';
aktie2 := random(200) + 1;
label5.Caption := IntTostr(aktie1) + ' €';
aktie3 := random(200) + 1;
label8.Caption := IntTostr(aktie1) + ' €';
aktie4 := random(200) + 1;
label11.Caption := IntTostr(aktie1) + ' €';
das sollte eher so aussehen!

aktie1 := random(200) + 1;
label2.Caption := IntTostr(aktie1) + ' €';
aktie2 := random(200) + 1;
label5.Caption := IntTostr(aktie2) + ' €';
aktie3 := random(200) + 1;
label8.Caption := IntTostr(aktie3) + ' €';
aktie4 := random(200) + 1;
label11.Caption := IntTostr(aktie4) + ' €';

da war wohl jemand schneller!
Mike Schröder
Fleiß kann man vortäuschen, faul muss man schon selber sein!
  Mit Zitat antworten Zitat