Automatisches Verlassen einer Funktion bei Result := False;

[d3g]

Automatisches Verlassen einer Funktion bei Result := False;

Wer viel mit Algorithmen arbeitet, kennt das Problem: Jedesmal, wenn man in einer Funktion Result auf False setzt, will man eigentlich, dass die Funktion auch gleich mit Exit beendet wird - dazu sind zwei Zeilen nötig. Wenn man das oft macht, kann da einen Code auch verunstalten und unübersichtlich machen.

Die Idee bei diesem Tipp: statt Result auf False zu setzen, löst man künstlich eine Exception aus, die mit try..except abgefangen wird. Beim Abfangen wird Result auf False gesetzt und die Funktion verlassen. Das kann viele Zeilen Code sparen.

Dazu muss aber gesagt werden, dass Exceptions eine recht zeitspielige (und damit auich kostspielige ) Angelegenheit sind, man sollte das also nicht unbedingt im Suchalgorithmus oder in der Datenbankquery anweden.

So sieht das ganze in der Praxis dann aus:

Zuerst deklariert man eine eigene Exception, die dann ausgelöst werden soll:

Code:

type
  EResultFalse = class(Exception);

Jetzt kann man das ganze im Code anwenden:

Code:

function Test(h: THandle): Boolean;
begin
  try
    if (h = INVALID_HANDLE_VALUE) then
      raise EResultFalse.Create(''); // Exception auslösen
  except
    on EResultFalse do begin
      Result := False;
      Exit;
    end;
  end;
end;

Bei Create ist ein Parameter nötig, der die Message ausgeben würde, die erscheint, wenn die Exception nicht abgefangen würde. Man sollte übrigens unter Tools|Debugger Options|Language Exceptions das Anhalten bei Delphi-Exceptions ausschalten, ansonsten bekommt man in der IDE jedes mal, wenn Result auf False gestellt wird, eine Exception gegen den Kopf geschleudert...

Viel Spaß,
d3g