|
Registriert seit: 8. Dez 2017
4 Beiträge
|
AW: Zeitmessung einfügen
25. Jan 2018, 10:10
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/ und bei "..." soll dann was eingefügt werden?
|