Ich melde mich wieder zurück, Now habe ich nirgends deklariert, wieso sollte man das tun.
Der Fehler scheint in einer der Umwandlungsfunktionen zu liegen. Leider kann ich nicht weiter debuggen, da ich keine SysUtils.pas habe.
Folgender Code erzeugt folgende Resultate:
Code:
function API_GetCurrentDate:string;
var SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
result:=DateTimeToStr(SystemTimeToDateTime(SystemTime))+' vs '+Format('%.2d.%.2d.%d %.2d:%.2d:%.2d',[SystemTime.wDay,SystemTime.wMonth,SystemTime.wYear,SystemTime.wHour,SystemTime.wMinute,SystemTime.wSecond]);
end;
11.09.2010 13:56:24 vs 11.09.2010 13:59:10
11.09.2010 13:56:24 vs 11.09.2010 13:59:31
11.09.2010 13:56:24 vs 11.09.2010 14:00:13
11.09.2010 13:56:24 vs 11.09.2010 14:00:18
11.09.2010 13:56:24 vs 11.09.2010 14:00:27
11.09.2010 13:56:24 vs 11.09.2010 14:00:30
Ich bin ehrlich gesagt ratlos. Völlig unlogisch der Fehler.