• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Exit oder nicht Exit

Hallo,

bin gerade ein bisschen am Basteln in Freepascal und überlege zeitgleich
ob die Verwendung von Exit schlechter Stil ist.

Beispiel:

type
TAnwser = class(TObject)
private
FOk: Boolean;
public
Ok: Boolean read FOk write FOk;
end;


function Test(Input: LongInt): TAnwser;
begin
Result := TAnwser.Create;
case Input of
1, 2, 3: Result.Ok := False;
4, 5, 6: Result.Ok := True;
end;
if (Result.Ok = True) then begin
(* ... *)
(* viel anderer Code *)
(* ... *)
end;
end;

Spricht eigentlich etwas dagegen in obigen case nach dem
"Result.Ok := False" ein Exit zu machen? Insbesondere wenn solche
case-Abfragen noch häufiger in der Funktion vorkommen? Oder ist das eher
schlechter Stil?

Ist jetzt nur ein grobes Beispiel, in meiner eigentlichen Routine gibt
es noch weitere Properties die im weiteren Verlauf geprüft werden
müssten, wenn nicht geExited wird.

mfg
Micha

Antworten