Delphi-Quellcode:
T := TIrgendwas.create;
try
T.TueEtwas;
T.UpdateFile;
T.TueEtwasAnderes;
finally
T.UpdateFileAndFree;
end;
Klasse.
Warum das normale verhalten ändern?
Echt das musst Du mir erklären.
Was ist an Deiner Lösung besser?
Achte mal auf die Fragestellung.
Ich binde eine andere
Unit ein und fertig.
Du musst jeden Aufruf von free durch Deine Routine ersetzen.
Wenn das besser ist dann sei es so.