Random funktioniert erst nach dem 3. mal

[Äfan]

Hi,

Ich will, das wenn man auf einen Knopf drückt, ein Zufallswert zwischen 1 und 6 in Edit1 eingefügt werden soll. Folgenden code habe ich:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
 i:=random(5)+1;
 Edit1.Text := inttostr(i);
end;

Das Problem ist: Das der Zufallswert erst angezeigt wird, wenn ich das 3. mal auf den Button klicke. Beim ersten und zweiten klick steht nur 1 in Edit1. Warum geht das nicht gleich beim ersten klick ?

MFG

[Luckie]

Lies mal in der Hilfe nach randomize.

[axelf98]

Hast du auch im OnCreate des Hauptformulars RANDOMIZE aufgerufen? Ohne diesen Befehl spuckt dein Programm bei jedem Start die selben Zufallszahlen aus, in diesem Fall 2 mal hintereinander eine 1.

[Chegga]

Hi,

füge diesen Code noch ein:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

MfG Marc

[Edit] So, jetzt kannst du den Code 1:1 kopieren! :mrgreen: [/Edit]

[Äfan]

@Lukie: Ich werde aus der DH net schlau... sorry...

@Axelf98: Thanks :thumb:

@Chegga: Danke. Kleiner Tipp: des heißt Randomize und nicht Randomzie :stupid: :-D Aber das is mal lobenswert. Jemand der nicht lange um den heißen Brei rumredet, sondern gleich sagt wie es richtig gehört ! Echt Top ! (das selbe natürlich auch bei Axelf98) :wink: :thumb:

MFG