Hier mal meine Meinung:
Delphi-Quellcode:
begin
ppFile := TNativeXml.CreateName('
xyz');
try
try
[...]
except
on e: EMySQLException
do
AddLogAlert('
Fehler' + ppFile.ErrorMessage);
on e:
Exception do
begin
AddLogAlert('
Fehler' + e.ErrorMessage);
raise;
end;
end;
finally
ppFile.Free;
end;
end;
In so einem Fall braucht man das finally, da man ja Exceptions re-raisen kann ("Soll sich doch wer anderes damit rumschlagen")
finally nach except, damit man im Except noch auf das Objekt zugreifen kann (und evtl. Infos heraauszuholen