except und finally

[nailor]

Ist es möglich, except und finally in einen try-Block zu quetschen.

Ich will das finally wegen Dateifunktionen haben, damit die Streams gefreet werden, aber wenn es einen Fehler gibt, soll noch zusätzlich was anderes gemacht werden. Wie mach ich das am besten?

[Mirilin]

geht es denn so nicht?

Delphi-Quellcode:

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

:?:

[MrSpock]

Hallo Nailor,

ja das geht:

Delphi-Quellcode:

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

Wenn du es in dieser Reihenfolge schachtelst, wird eine mögliche exception im finally Block auch noch abgefangen.

[Mirilin]

Tschuldige, für falsch-herum-Antwort :D .

[nailor]

Wierum nun?

[nailor]

Sicher, dass das finally den Fehler nicht schluckt, und das except dann nicht mehr "hochgeht"?

[Mirilin]

wenn ich es mir zwar überlege, könnte meines doch stimmen.


**************************
zuerst
blablabla
falls Fehler auftritt
blablabla
schlussendlich
blablabla
***************************


Nachtrag : Probiers doch einmal aus.

[sakura]

Meistens ist die Reihenfolge egal. Es werden immer beide Blöcke ausgeführt.

...:cat:...

[MrSpock]

Hallo Nailor,

ein finally Block "schluckt" die exception nicht. Die Exception wird nur durch ein except Block als "bearbeitet" angesehen.

[nailor]

Delphi-Quellcode:

try
try
  //Streams Createn
except
  //Fehlermeldungen
end;
//Das, was getan werden soll, wenn keine Fehler da waren
finally
//Streams freen
end;

Jetzt wird doch aber der "//Das, was getan werden soll, wenn keine Fehler da waren"-Block immer abgearbeitet. Soll er aber nicht. Soll er nur, wenn der except Block nicht durchlaufen wurde, weil es ja keinen Sinn hat, zu speichern, wenn der Stream nicht da ist.

[eddy]

Hallo Nailor,

dann probier doch das mal aus:

Code:

try 
try 
  //Streams Createn  --> wenn Fehler dann weiter nach except
  //Das, was getan werden soll, wenn keine Fehler da waren 
except 
  //Fehlermeldungen 
end; 
finally 
//Streams freen 
end;

except wird nur bei Fehler abgearbeitet. Es darf natürlich kein unausgewerteter Fehler in
dem, "was getan werden soll, wenn kein Fehler da war", auftreten.

mfg
eddy