Start und Stop jeder Methode Tracen an nur einer stelle Implementieren

[Bernhard Geyer]

Zitat von schlecki:

Die Verwendung ist dann so:

Delphi-Quellcode:

procedure TForm.ButtonClick(...) 
begin
  TMeasure.MeasureThis('TForm.ButtonClick');
  Writeln('Muuh');
  Sleep(1000);
end;

Wenn man die Hilfsroutinen der JEDI zur verfügung hat könnte man sich den Text-Parameter bei "MeasureThis" sparen.
Einfach im Callstack den passenden Methodennamen rausholen und als Text ausgeben.
Dann könnte man mit einer einfachen Methode das komplett erschlagen

Delphi-Quellcode:

procedure StartMeasure: IAutoDestroy;
begin
  result := TMeasure.MeasureThis(_STACK...._);
end;

Verwendung:

Delphi-Quellcode:

procedure TForm.ButtonClick(...)
begin
  StartMeasure;
  Writeln('Muuh');
  Sleep(1000);
end;