Verständnisfrage zu Exit

[bernau]

Zitat von Benmik:

Dementsprechend wäre für die Funktionen Folgendes sinnvoll:

Delphi-Quellcode:

Result := KlapptDas1;
Result := Result and KlapptDas2;
Result := Result and KlapptDas3;
Result := Result and KlapptDas4;
If Result then begin
 ... // jetzt kann es losgehen

Grade das ist doch prädistiniert für ein Exit;

Delphi-Quellcode:

if not KlapptDas1 then
  Exit;
if not KlapptDas2 then
  Exit;
if not KlapptDas3 then
  Exit;
if not KlapptDas4 then
  Exit;
 ... // jetzt kann es losgehen

Breakpoint auf alle Exit und du springst sofort auf den betreffenden Exit ohne mit F8 durch zappen zu müssen.

Immer wenn ich irgendwo beim Refactoring bin, versuche ich immer Vorabbedingunge in ein Exit hineinzuverfrachten.

[Uwe Raabe]

Zitat von bernau:

Grade das ist doch prädistiniert für ein Exit;

Delphi-Quellcode:

if not KlapptDas1 then
  Exit;
if not KlapptDas2 then
  Exit;
if not KlapptDas3 then
  Exit;
if not KlapptDas4 then
  Exit;
 ... // jetzt kann es losgehen

Breakpoint auf alle Exit und du springst sofort auf den betreffenden Exit ohne mit F8 durch zappen zu müssen.

Auf eine Zeile mit einem simplen Exit kannst du aber keinen Breakpoint setzen. Nur wenn mit dem Exit ein Result zurückgegeben wird geht das.

Delphi-Quellcode:

if not KlapptDas1 then
  Exit(False);
if not KlapptDas2 then
  Exit(False);
if not KlapptDas3 then
  Exit(False);
if not KlapptDas4 then
  Exit(False);
 ... // jetzt kann es losgehen

[bernau]

Zitat von Uwe Raabe:

Auf eine Zeile mit einem simplen Exit kannst du aber keinen Breakpoint setzen. Nur wenn mit dem Exit ein Result zurückgegeben wird geht das.

Ähm. ja. Stimmt.

[Benmik]

Spielverderber! Trotzdem guter Tipp für mich: Das exit(False) ist die Regel und notfalls schreibe ich es hin, auch wenn am Anfang der Routine Result := False; steht. Kann man ja wieder wegmachen, wenn das Debugging vorbei ist.

[himitsu]

Zitat von Benmik:

Kann man ja wieder wegmachen, wenn das Debugging vorbei ist.

Ähhh neee?
Dann verhält sich dein Programm ja beim Debuggen womöglich anders, als in echt, was schon ein bissl sinnlos wäre.

Und natürlich geht es nur, wenn es eine Funktion und keine Prozedur ist. Und natürlich auch nur mit Boolean als Result.

[Benmik]

Nein, ich meinte doch Folgendes:

Delphi-Quellcode:

Function LeseJPGEin(DatnameMV:string):Boolean;
begin
  Result := False;
  If not DateiVorhanden
    then exit(False);
  If not HeaderOK
    then exit(False);
  If not EndianOK
    then exit(False):
  ....

Das "False" wäre ja nicht nötig, kann man zum Debuggen rein und hinterher wieder rausmachen.
(Oder man geht nach Hagen und macht das "Result := False" erst gar nicht hin, aber ich bin da gern auf der sicheren Seite.)

[bernau]

Zitat von Benmik:

Nein, ich meinte doch Folgendes:

Delphi-Quellcode:

Function LeseJPGEin(DatnameMV:string):Boolean;
begin
  Result := False;
  If not DateiVorhanden
    then exit(False);
  If not HeaderOK
    then exit(False);
  If not EndianOK
    then exit(False):
  ....

Das "False" wäre ja nicht nötig, kann man zum Debuggen rein und hinterher wieder rausmachen.
(Oder man geht nach Hagen und macht das "Result := False" erst gar nicht hin, aber ich bin da gern auf der sicheren Seite.)

In vielen Fällen spricht erst mal ja nichts dagegen, aus einer Procedure eine Function zu machen.

Das Result := False; kann man nach hinten verschieben.

Delphi-Quellcode:

Function LeseJPGEin(DatnameMV:string):Boolean;
begin
  If not DateiVorhanden
    then exit(False);
  If not HeaderOK
    then exit(False);
  If not EndianOK
    then exit(False):
  Result := True;
  ....

Grade dein Procedurename/Funktionsname ist für ein Result geeignet. Laden des Jpeg hat funktioniert oder eben nicht.

[bernau]

Zitat von himitsu:

Und natürlich geht es nur, wenn es eine Funktion und keine Prozedur ist. Und natürlich auch nur mit Boolean als Result. :stupit:

Warum nur mit Boolean als Result?

[himitsu]

Weil das Exit(False) sonst knallt?

Und ja, diese Exit sind hier schon bissl blöd.
Es ist toll, wenn die Prozedur nicht nur Exit macht, sondern wenigstens noch Funktion noch ein False sagt,

aber erstmal wird oft genug vergessen das Result von Funktionen auszuwerten
und dann macht es die Fehlerbehandung und auch Fehlersuche extrem spannend, wenn man nicht weiß warum die Funktion nichts machte.



Exceptions sind schon was Tolles, das auch gute Infos geben könnte.

[Benmik]

Zitat von bernau:

Warum nur mit Boolean als Result?

Es ist vielleicht nur ein vorübergehender Zustand und auch der EXIFerei geschuldet, aber ich habe angefangen, praktisch alle Prozeduren in boolesche Funktionen umzuwandeln, bei denen der Wert per var übergeben wird.
Erstens kann man dadurch mehr als einen Wert übergeben, und zweitens finde ich den Aufruf

Delphi-Quellcode:

If BestimmeHeaderPos(HeaderPos) then begin
  MachWasMitHeaderPos;

viel praktischer als

Delphi-Quellcode:

HeaderPos := BestimmeHeaderPos;
If HeaderPos > 0 then begin
  MachWasMitHeaderPos;