Meine Lösung wäre jetzt die folgende um über den QueryPerformanceCounter ein Performance Ergebnis in Sekunden zu bekommen:
Delphi-Quellcode:
var
intEnd, intFreq, intStart : Int64;
If gsPerformCheck = 'YES' Then QueryPerformanceCounter(intStart);
If gsPerformCheck = 'YES' Then
Begin
QueryPerformanceCounter(intEnd);
gdblTimeDiff := (((intEnd - intStart)/intFreq) * 1000) / 1000;
prMsgLog(MySQL_Database, tyINF, 99999, '', FloatToStrF(gdblTimeDiff, ffFixed, 5, 3), 'Delete Master Data Tables', gbBlckInfoMsg);
End;
Die Berechnung müsste doch so stimmen???