Möglichkeit: Try ... Except ... Finally ?

[LuCSteR]

Hey,

hab ne Syntaxfrage.
Wie ist es zu formulieren?

Delphi-Quellcode:

try
  begin
    bla;
    blubb;
  end;
except
  begin
    bam;
  end;
finally puh;

Ist sowas möglich? Hab es gerade ausprobiert, aber Compiler meckert, Illegal Expressen beim finally.
Es geht speziell um eine Ini File. Im Try-Block versucht er zu lesen/zu schreiben. Except-Block soll eine Fehlermedlung gezeigt werden, wenn das nicht klappen sollte und Ini.free. Im finally muss ich Ini.free setzen, weil sonst danach garnichts mehr ausgeführt wird. Das ganze findet in einer FormCreate Prozedur statt.

Grüße.

[mkinzler]

Entwder

Delphi-Quellcode:

except

oder

Delphi-Quellcode:

finally

[LuCSteR]

Also funktioniert das nicht auf meinem Wege? Mmh. Was bringt mir dann die Try-Except, Try-Finally Option?
Bei Java funktioniert das doch auch.
Habe auch versucht Ini.free am Ende des Try-Blocks zu setzen. Bekomme ich allerdings das gleiche Ergebnis, wie wenn ich es außerhalb des Try-Except platziere. Es funktioniert nur, wenn das Ini.Free im Finally-Block sitzt :(

[mkinzler]

finally wird immer aufgerufen.

Delphi-Quellcode:

try
  try
    ...
  except
    ..
  end;
finally
  ..
end;

[Bernhard Geyer]

Leider hat Delphi hier kein so schönes Konstrukt das man try..except..finally ein einem Block verwenden kann :-(

[bernau]

Zitat:

Zitat von LuCSteR

Hey,

Delphi-Quellcode:

try
  begin
    bla;
    blubb;
  end;
except
  begin
    bam;
  end;
finally puh;

Entweder except oder finally.

Du kannst es so schreiben:

Delphi-Quellcode:

try
  bla;
  blubb;
  puh; // Hier wird es nur ausgeführt, wenn die zwei befehle vorher korrekt abgearbeitet wurden.
except
   bam; //Das wir ausgeführt, wenn ein Fehler auftritt.
end;

[/quote]

[mkinzler]

Was genau das gegengesetzte wäre, was er will

[Angel4585]

Zitat:

Zitat von mkinzler

finally wird immer aufgerufen.

Delphi-Quellcode:

try
  try
    bla;
    blubb;
  except
    bam;
  end;
finally
  puh;
end;

[DeddyH]

Man muss das wohl schon so machen, wie in #4 beschrieben.
Pseudo-Code:

Delphi-Quellcode:

Ini := TIniFile.Create(Pfad);
try
  try
    Ini.ReadSomething
  except
    on e: Exception do
      ShowMessage(e.Message);
  end;
finally
  Ini.Free;
end;

[LuCSteR]

Alles klar, da hätte ich auch selbst drauf kommen können :)
Außerdem hatte ich auch nen "begin - end" zu viel drinne :s

Vielen Dank für die Hilfe.


----

Hab grad noch schnell Bernaus's Vorschlag probiert.
Funktioniert in meinem Fall genauso hervorragend, wie mkinzler's Lösung. Allerdings ist mkinzler's Lösung sicherer :)
Danke euch beiden. :)

Btw. hatte es schon wie Bernau probiert, jedoch, wie oben schon geschreiben, ein begin - end an der falschen Stelle. :s