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:
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;