Thema: Delphi Rückgabe steuern

Einzelnen Beitrag anzeigen

burns4711

Registriert seit: 29. Sep 2004
24 Beiträge
 
#12

Re: Rückgabe steuern

  Alt 13. Jun 2005, 16:35
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]
  Mit Zitat antworten Zitat