Wie kann ich ohne EAbort abbrechen?

Question

Gibt es eine Möglichkeit, die Ausführung einer Methode abzubrechen, ohne eine EAbort Ausnahme auszulösen? Hier

ist ein Problem:

.... 

try 
    i := strtoint(Edit1.Text); 
    if not (i=10) then 
    begin 
    showmessage('Value for I must be 10 !'); 
    sysutils.abort; 
    end; 
except 
    showmessage('Wrong Value for i !'); 
end; 

showmessage('Execution continue ...'); 

... 

In diesem Beispiel Programmausführung wird nicht abgebrochen werden, wenn der Wert für i 5 ... es wird die Meldung angezeigt, dann Meldung „Wert für I 10 sein muss!“ "Falscher Wert für i!" (weil die EAbort-Ausnahme ausgelöst wird) und dann die Nachricht "Ausführung fortsetzen ...". Ich weiß, wie ich diese Situation lösen kann, aber ich brauche eine allgemeine Lösung für sysutils.abort ohne EAbort-Ausnahme.

Answer 1

Gerade Verlassen der aktuellen Methode
Verwenden Klar exit Wenn eine Prozedur beenden.
Oder exit(return_code) beim Verlassen einer Funktion (*).

Beachten Sie, dass nicht in einem try-except Block gefangen wird, aber es wird in einem try-finally Block gefangen.
Wenn Sie eine feinere Kontrolle wünschen, können Sie Schleifen mit break und continue brechen.
Schließlich gibt es die Option goto. Dies ist die Option des letzten Ausweges und wird allgemein als Code-Geruch betrachtet.

Probe:

function ExitBreakContinue(WhatToDo: integer): string; 
var 
    a,b,i: integer; 
label SomeLabel; 
begin 
    a:= 0; b:= 0; 
    try 
    for i:= 0 to 10 do begin 
     a:= a + 1; 
     case WhatToDo of 
     1: exit('exit_called'); 
     2: continue; 
     3: break; 
     4: abort; 
     5: goto SomeLabel; 
     end; 
     b:= b + 1; 
    end; {for i} 
    Result:= 'a,b = '+IntToStr(a)+','+IntToStr(b); 
    finally 
    Result:= Result + ' finally'; 
    end; 
    SomeLabel: Result:= Result + ' goto '; 
end; 

Schließen der Anwendung
In einer grafischen Anwendung, die Sie application.terminate nennen würde.
In einer Konsolenanwendung rufen Sie halt mit einem Exit-Code oder RunError mit einem Fehlercode auf.

halt/RunError funktioniert auch in einer grafischen Anwendung, wird aber nicht empfohlen, da die Anwendung nicht ordnungsgemäß beendet werden kann.
Dies wird Ihre Benutzer verärgern, weil das Ereignis OnCloseQuery des Mainform nicht ausgelöst werden kann.
Normalerweise würden Sie die Arbeit des Benutzers in diesem Event-Handler speichern (anbieten).

(*) exit(return_code) is supported in Delphi 2009 and newer.