Procedure / Function sauber beenden

[DelTurbo]

Hi,

wie kann ich einer procedure bzw. funktion "sagen" das sie immer am ende rauslaufen soll. Egal ob mitten drin eine exception oder sonstwas passiert ist.

Im moment ist das bei mir so.

Delphi-Quellcode:

procedure xy;
begin
   // mach ganz viel
   // und nochmehr
   // hier passiert was und er springt raus 
   procedureende:=True; //<-- hier kommt er dann nie hin
end;

Danke im voraus

[mkinzler]

Delphi-Quellcode:

Try
   ...
finally
   //hier
   ...
end;

[himitsu]

Dieses Try-Finaly heißt zu deutsch soviel wie "Resourcenschutzblock"

Delphi-Quellcode:

O := TMyObject.Create;
try
  // mach was
finally
  O.Free;
end;

Delphi-Quellcode:

M := GetMem(100);
try
  // mach was
finally
  FreeMem(M);
end;

[DelTurbo]

Ah super. Danke. Und das klappt auch wenn innerhalb des try eine procedure aufgerufen wird die auch nicht sauber beendet weil was passiert ist? Weil die sachen die innerhalb des try dürfen ruhig "unsauber" beenden. Das stört mich nicht. Wichtig ist nur das die Hauptprocedure sauber wieder rauskommt.

[mkinzler]

Ja finally wird immer ausgeführt

[DelTurbo]

Super. Vielen vielen dank. Das löst ein DICKES problem.

Obwohl das problem meistens ca. 60cm vorm monitor sitzt

[himitsu]

Zitat von mkinzler:

Ja finally wird immer ausgeführt

jain, aber meißtens eindeutliches JA

Sehr schwerwiegende Fehler, wo gleich die ganze Anwendung radikal abstürzt, werden nicht abgefangen.
Dazu zählt auch Halt.