Delphi-Quellcode:
ExportFilter := TQRPDFDocumentFilter.Create(savedialog1.FileName);
try
form5.QuickRep1.ExportToFilter(ExportFilter);
finally
ExportFilter.Free;
end;
Free im Finally = Create direkt
vor dem Try.
Denn passiert im Create ein Fehler, würde die Variable nicht ordnungsgemäß initialisiert und das Free hätte ein Problem.
PS: Tritt im Create eine
Exception auf, dann wird von der
VCL automatisch Free/Destroy aufgerufen und das grade erzeugte Objekt wieder freigegeben.
http://www.delphipraxis.net/154794-t...en-nutzen.html
http://www.delphipraxis.net/155747-t...chachteln.html