Stack Überlauf

[Christian18]

ich kann meinen fehler nicht finden

Zitat von Jens Schumann:

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.