Forum: Object-Pascal / Delphi-Language
by schlecki,
29. Feb 2012
@Stevie: der link ist auf der von mir verlinkten Seite auch vorhanden :)
@gibb
Nein, ich habe eigentlich nur die Methode gezeigt, wie man mit möglichst wenig Aufwand ein Log einbauen kann. Die Aufrufe müssten schon von Hand geschrieben werden. Alternativ könnte man da mit gpProfile was basteln. Da ist zumindest der Parser dabei - ist ja OpenSource.
Forum: Object-Pascal / Delphi-Language
by schlecki,
29. Feb 2012
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.
procedure Foo
begin
...
end
wird glaube ich zu
Forum: Object-Pascal / Delphi-Language
by schlecki,
23. Feb 2012
oder ein boolean als class var in TMeasure - wenn der false ist, einfach im Log nichts schreiben.
edit: @bernhard geyer das mit der jcl muß ich mir nochmal anschauen, haben wir sowieso im projekt :) Danke ^^
Forum: Object-Pascal / Delphi-Language
by schlecki,
23. Feb 2012
eine recht billige Variante ist mit einem Interface implementierbar - allerdings muss dann jede Methode, die gemessen werden soll, mit einer Zeile instrumentiert werden. Ich zeige hier mal ein kurzes Beispiel (aus dem Kopf runtergetippelt)
type
IAutoDestroy = interface(IInterface)
end;
TMeasure = class(TInterfacedObject, IAutoDestroy)
protected
FMessage: string;