Einzelnen Beitrag anzeigen

Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#26

AW: GetTickCount / Fehler bei Bereichsprüfung

  Alt 15. Jan 2014, 17:36
uups hab was vom source vergessen, hier nochmal komplett:

Delphi-Quellcode:

var
intEnd, intFreq, intStart : Int64;

QueryPerformanceFrequency(intFreq);

If gsPerformCheck = 'YESThen QueryPerformanceCounter(intStart);

If gsPerformCheck = 'YESThen
Begin
  QueryPerformanceCounter(intEnd);
  gdblTimeDiff := (intEnd - intStart)/intFreq;
  prMsgLog(MySQL_Database, tyINF, 99999, '', FloatToStrF(gdblTimeDiff, ffFixed, 5, 3), 'Delete Master Data Tables', gbBlckInfoMsg);
End;
Keine Ahnung warum ich erst Multipliziert und dann wieder Dividiert hab
Liegt wohl an der Uhrzeit das ich schon etwas verwirrt bin
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat