Forum: Win32/Win64 API (native code)
by DeddyH,
30. Jan 2008
Schneller bestimmt, aber die Fehleranfälligkeit hat ja nichts mit der Sprache zu tun.
Forum: Win32/Win64 API (native code)
by DeddyH,
30. Jan 2008
Das war ja auch nur als Ansatz gedacht, ein bisschen Arbeit darfst Du auch übernehmen ;) (z.B. könntest Du ein Datumsformat mitübergeben)
Forum: Win32/Win64 API (native code)
by DeddyH,
30. Jan 2008
Keine schöne und performante Lösung, aber als Denkansatz könnte es genügen.var sTime: TSystemTime;
iPos, ErrorCode: integer;
Datum: string;
begin
Datum := '22.08.2008';
FillChar(sTime,SizeOf(sTime),0);
iPos := Pos('.',Datum);
Val(Copy(Datum,1,iPos - 1), sTime.wDay, ErrorCode);
Delete(Datum,1,iPos);
iPos := Pos('.',Datum);
Forum: Win32/Win64 API (native code)
by DeddyH,
29. Jan 2008
Wie wäre es mit StrToDateTime und dann DateTimeToSystemTime?