Naja die exakteste Zeitmessung die geht ist meiner Kentnis nach diese
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
PerfFreq, StartTime, CurrentTime: int64;
begin
if QueryPerformanceFrequency(PerfFreq) then
begin
QueryPerformanceCounter(StartTime);
// hier laufen die zu messenden Aktionen
QueryPerformanceCounter(CurrentTime);
Label1.Caption := FormatFloat('Dauer: 0.000000 s',
(CurrentTime - StartTime) / PerfFreq);
end else
Label1.Caption := 'Hardware-Voraussetzung fehlt';
end;
Gibts da noch was genaueres???
[edit=Luckie]Benutz bitte die Delphi-Tags! Du wurdest schon mal in diesem Thread daraufhingewiesen. Mfg, Luckie[/edit]