Verständnisfrage zu Exit

[Delphi.Narium]

Zitat von Benmik:

Auch wenn das Thema so ziemlich abgehandelt ist, interessiert mich doch noch ein Aspekt.

Ich arbeite im Moment an einer EXIF-Unit. Die Exiferei ist ein Gebiet, auf dem man alles, wirklich alles pausenlos abprüfen muss, weil dort das reine Faustrecht herrscht (ja, Microsoft und Adobe, ihr seid gemeint!). Dementsprechend ist ein Result ausschließlich am Ende völlig illusorisch, weil es nur noch boolesche Funktionen gibt und die voll sind von Results.

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

Vor allem auch für das Debuggen ist das enorm praktisch, weil man sich durchF8en kann und sofort sieht, wenn Result False wird. Und sehr übersichtlich ist es auch, was ja für Code nicht das Schlechteste ist. Andererseits sieht man sowas im Proficode nie, woraus ich schließe, dass es aus mir unerfindlichen Gründen verpönt ist (Himitsu, lass das "h" weg, das kommt von poena!). Mein Gedanke ist nun: Der Compiler lässt das alles doch sowieso nicht so, wie wir das hinschreiben. Es kann doch oft sein, dass die "offziellen" Elaborate überhaupt kein anderes Ergebnis erbringen als der Code oben, und schon mal überhaupt keinen Geschwindigkeitsunterschied. Ist es nicht erwägenswert, übersichtlichen und debuggingfreundlichen Code zu schreiben, der dann sowieso vom Compiler optimiert wird?

Dein Beispiel ist für mich etwas absolut normales.

Und, wenn ich auch kein Freund vom Exit bin, hier kann bei mir dann durchaus mal sowas vorkommen:

Delphi-Quellcode:

Result := KlapptDas1;
Result := Result and KlapptDas2;
Result := Result and KlapptDas3;
Result := Result and KlapptDas4;
If not Result then exit;
// weil hier einfach ggfls. noch "furchtbarviel" Code folgen kann.

Das entspricht dem weiter oben mehrfach Angesprochenen:

Am Anfang werden die Grundvoraussetzungen geprüft, sind die nicht erfüllt, dann raus per Exit.

Danach kommt dann die Erledigung der eigentlichen Aufgabe.

[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.

[Stevie]

Zitat von Benmik:

Mein Gedanke ist nun: Der Compiler lässt das alles doch sowieso nicht so, wie wir das hinschreiben. Es kann doch oft sein, dass die "offziellen" Elaborate überhaupt kein anderes Ergebnis erbringen als der Code oben, und schon mal überhaupt keinen Geschwindigkeitsunterschied. Ist es nicht erwägenswert, übersichtlichen und debuggingfreundlichen Code zu schreiben, der dann sowieso vom Compiler optimiert wird?

Wären wir in einem C++ Forum, würd ich dir zustimmen. Ist bei Delphi nur leider nicht so und man muss dem Compiler laufend unter die Arme greifen - aber ja, wir reden hier über die 3%, wo das relevant ist.

[kagi3624]

Zitat von Delphi-Laie:

Dagegen spricht nichts.

Ich verstehe die Frage bzw. das Problem nicht.

http://www.delphibasics.co.uk/RTL.as...xpandCode1=Yes

Zitat:

Warning : use with caution - jumping is a concept at odds with structured coding - it makes code maintenance difficult.