Prozedur vorzeitig beenden

[mirko2000]

Mit welchem Befehl kann ich eine Prozedur vorzeitig beenden (bei VB6 ist es 'exit sub')?

[Tyrael Y.]

hier auch fast ^^

exit;

[himitsu]

Exit;

[mirko2000]

Danke! Hätte nicht gedacht, dass der Befehl so einfach ist!

[samson]

Hallo.

Ein Exit würde ich persönlich nicht verwenden. Ein Exit ist unüberschaubar und für andere Programmierer an Deinem Code schwer zu lesen/verstehen.

Ich habe es mir angewöhnt eine Boolean-Variable einzuführen. Das macht dann auch das ganze Debuggen einfacher und ist sauber strukturiert.

Gruss


Samson

[Luckie]

Würde ich so pauschal nicht sagen. Selbst in Borland Sourcen findet man exits.

[choose]

Zitat von Luckie:

Selbst in Borland Sourcen findet man exits.

Das hat nichst zu sagen

Ich denke aber auch, dass ein Break oder Goto in seltenen Fällen die Lesbarkeit des Codes verbessern kann (ganz zu schweigen von der Performance).

@mirko2000: Beide Statements eignen sich ebenfalls zum Verlassen einer Kontrollstruktur. Interessant ist dann vielleicht noch die "stille Exception" EAbort, ausgelöst durch die Prozedur SysUtils.Abort

[Luckie]

Zitat von choose:

Zitat von Luckie:

Selbst in Borland Sourcen findet man exits.

Das hat nichst zu sagen

Hat auch nichts zu sagen. Nur gehe ich davon aus, dass das keine Anfänger sind und wissen, was sie da machen.

[Chewie]

Ich finde, durch die Verwendung von Exits kann der Code auch übersichtlicher werden.

Z. B. in so einem Fall:

Delphi-Quellcode:

  if call_function1 = ERROR_TYPE then
  begin
    ShowErrorMessage;
    Exit;
  end;

  if call_function2 = ERROR_TYPE then
  begin
    ShowErrorMessage;
    Exit;
  end;

  if call_function3 = ERROR_TYPE then
  begin
    ShowErrorMessage;
    Exit;
  end;

Das finde ich übersichtlicher als:

Delphi-Quellcode:

var
  bError: Boolean;
begin
  bError := False;
  
  if call_function1 = ERROR_TYPE then
  begin
    bError := True;
    ShowErrorMessage;
  end;   
 
  if not bError then
    if call_function2 = ERROR_TYPE then
    begin
      bError := True;
      ShowErrorMessage;
    end;

  if not bError then
    if call_function3 = ERROR_TYPE then
    begin
      bError := True;
      ShowErrorMessage;
    end;

oder gar:

Delphi-Quellcode:

  if call_function1 <> ERROR_TYPE then
    if call_function2 <> EROOR_TYPE then
      if call_function3 <> ERROR_TYPE then
      begin
        //Code ausführen
      end
      else
        ShowErrorMessage;
    else ShowErrorMessage;
  else ShowErrorMessage;

Ich benutze lieber ein paar Exits und bleibe linear als dass ich mein Programm so weit verschachtele, dass ich horizontal scrollen muss.