Eine Prozedur unterbrechen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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.