TL;DR; ?
Ich habe auch schon TStopwatch probiert. Kommt zum gleichen Ergebnis wie GetTickCount.
Zum Thema Protokollierung:
Die sieht etwa so aus:
Delphi-Quellcode:
procedure MyProto(aValue: DWord; aAufrufer : String);
begin
if aValue >= 200 then //=200ms
begin
tmpStr := aAufrufer + ' - Value: ' + aValue.ToString;
//Senden des Strings an den Protokoll-Thread, welcher für das Schreiben zuständig ist
//PostThreadMessage zum Protokoll-Thread
end;
end;
Die Protokollierung ist sicherlich nicht das Problem. Die Funktion wird sowohl für die Protokollierung von TC2 als auch TC4 benutzt, natürlich immer mit dem entsprechenden Übergabewert als Value und Aufrufer-String