Warnen vor dem schließen

[Popov]

Zitat von DeddyH:

*Hahaaa* da isse wieder (If-Schleife)

Natürlich gibt es if schleifen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: Byte;
  Label Schleife;
begin
  a := 0;

  Schleife: a := a + 1;
  ShowMessage('Durchgang ' + IntToStr(a));
  if a < 5 then Goto Schleife;

  ShowMessage('Das waren ' + IntToStr(a) + ' Schleifen');
end;

Edit:

Das mit der Schleife war natürlich nur ein Scherz, nur hat keiner reagiert. Also mache ich es bevor es einer in paar Wochen macht.