Zeitmessung einfügen

[himitsu]

Im Prinzip geht es immer nach dem selben Muster:

Delphi-Quellcode:

var Start, Dauer: TDateTime;

Start := Now;
...
Dauer := Now - Start;
Caption := TimeToStr(Dauer);  // oder FormatDateTime SecondsBetween MinutesBetween usw.

Delphi-Quellcode:

var Start, Dauer: Cardinal;

Start := GetTickCount;
...
Dauer := GetTickCount - Start;
Caption := Format('%d ms', [Dauer]);

Es gibt seit ein paar Jahren auch eine Messkomponente im Delphi, aber ich habe grade vergessen wie die heißt.
Da ginge es in etwa so:

Delphi-Quellcode:

xxx.Start;
...
xxx.Stop;
Caption := Format('%d ms', [xxx.Duration]);

https://www.delphi-treff.de/tipps-tr...-durchfuehren/