|
Registriert seit: 15. Dez 2002
Ort: Mittelfranken
980 Beiträge
Delphi 10 Seattle Enterprise
|
Re: Dauer einer Abfrage ermittlen
31. Jan 2005, 07:58
evtl. so etwas:
Delphi-Quellcode:
var
c, t1, t2: int64;
begin
QueryPerformanceFrequency(c);
QueryPerformanceCounter(t1);
DM.QFAD.Open;
QueryPerformanceCounter(t2);
Label1.Caption := IntToStr((t2 - t1) * 1000 div c) + ' ms';
 thomas
|