Hallo,
genau hier liegt der Fehler
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
Randomize;
zahl1:=Random(10);
zahl2:=Random(10);
zahl3:=Random(10);
if zahl1=0 then FormShow(Sender);
if zahl2=0 then FormShow(Sender);
if zahl3=0 then FormShow(Sender);
Label1.Caption:=FloatToStr(zahl1) + ' = ' + FloatToStr(zahl2) + 'x' + ' - ' +FloatToStr(zahl3);
end;
Wenn Du Dir die vorangegangen Beiträge genau durch liest wirst Du den Fehler schnell finden.