Home » Tipps & Tricks » Object Pascal » Prozeduren/Funktionen » Eine Prozedur unterbrechen

Eine Prozedur unterbrechen

Es kann manchmal nötig sein, unter bestimmten Bedingungen eine Procedure abbrechen zu müssen. Dies kann man mit Exit machen. Bei Exit werden noch try-finally-Blöcke abgearbeitet.

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Edit1.Text='' then
    Exit;
end;

In Schleifen kann man auch den Befehl break verwenden. Damit wird die komplette Schleife abgebrochen.

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:=1 to 300 do
    if Edit1.Text='' then
      break;
  
  Showmessage('Hallo');
end;

Die ShowMessage wird auf jeden Fall angezeigt, da mit break ja nicht die Procedure sondern nur die Schleife abgebrochen wurde.Der Befehl Continue setzt die Schleife mit einer neuen Iteration fort.