noch ein ganz pragmatischer Ansatz wäre GpProfile (
http://17slon.com/gp/gpprofile/). Da gibt es iirc ein kleines Tool, welches alle Methoden in scannt und instrumentiert - oder auch wieder den original-Zustand herstellt.
Delphi-Quellcode:
procedure Foo
begin
...
end
wird glaube ich zu
Delphi-Quellcode:
procedure Foo
begin
{$ifdef gpprofile}gpStart; try {$endif}
...
{$ifdef gpprofile}finally gpEnd; end; {$endif}
end
wir hatten das ne zeitlang genutzt, haben dann aber die Funktionen gpStart und gpEnd entsprechend angepasst.