Probleme mit While-Schleife

**daredd**

Hallo habe ein Problem, hab so ein kleines programm für einen Zufallszahlengenerator geschrieben.
Also es soll nach dem klick auf den button1 die berechnung und die ausgabe von zufallszahlen erfolgen bis man auf dem buttton2 drückt um abzubrechen.
Main laptop streikt aber sobal ich auf den button1 drücke fährt sich das programm fest, bzw. es passiert nichts.

!!! Ohne While-Schleife funktioniert es aber, al´so random und so !!!

Hier mein code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFORM1.GibZahlen;

var

 x1, x2, x3, x4, x5, x6, x7, x8, x9 :Integer;

 begin

randomize;

x1 := (random(20)+1)*10;

x2 := (random(20)+1)*10;

x3 := (random(20)+1)*10;

x4 := (random(20)+1)*10;

x5 := (random(20)+1)*10;

x6 := (random(20)+1)*10;

x7 := (random(20)+1)*10;

x8 := (random(20)+1)*10;

x9 := (random(20)+1)*10;

Label10.Caption := Format('%d %d %d %d %d %d %d %d %d', [x1,x2,x3,x4,x5,x6,x7,x8,x9]);

Label1.height :=x1;

Label2.height :=x2;

Label3.height :=x3;

Label4.height :=x4;

Label5.height :=x5;

Label6.height :=x6;

Label7.height :=x7;

Label8.height :=x8;

Label9.height :=x9;

end;

procedure TForm1.Unendlich(Sender: TObject);

begin

while i > 0 do begin

GibZahlen;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

i := 1;

Unendlich(self);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if i > 0 then begin i := 0;

end;

end;

Probleme mit While-Schleife

Probleme mit While-Schleife

Forumregeln