Zufallszahlenproblem

[Uceo]

Hallo, ich habe ein Problem mit Zufallszahlen! Hier ein kleiner Abschnitt aus dem Code:

Delphi-Quellcode:

randomize;
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) + ' €';

Ich bekomme jetzt aber immer für jede der 4 Variablen die gleiche Zufallszahl. Da Delphi ja für Zufallszahlen die Uhr zu Hilfe nimmer, habe ich es schon zwischen den einzelnen Abschnitten mit Sleep probiert, aber es will nicht gehen! Wie kann ich das machen? Danke!

[mark250678]

Hallo,

Probiers mal so

Delphi-Quellcode:

randomize;
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) + ' €';

Hab´s auch erst beim 2. mal hinsehen gemerkt...

Schöne Grüße

Markus

[MikeS]

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!

[Sharky]

Hai Uceo,

von der Funktion her ist es eigentlich richt. Wichtig ist nur das randomize nur EINMAL im Programm aufgerufen wird. Ab besten im .OnCreate der MainForm.

Uff... das mit den Falschen Namen habe ich doch glatt übersehen

[Uceo]

O_o! Das hatte ich ganz übersehen! Ich suche jetzt nun schon ewig, aber vielen dank an euch alle!

[Termi]

Zitat von Sharky:

Hai Uceo,

Wichtig ist nur das randomize nur EINMAL im Programm aufgerufen wird. Ab besten im .OnCreate der MainForm.

Hm, kannst du einem Laien wir mir kurz erklären warum dem so ist?