PChar to FileTime or SystemTime

[DeddyH]

Keine schöne und performante Lösung, aber als Denkansatz könnte es genügen.

Delphi-Quellcode:

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);
  Val(Copy(Datum,1,iPos - 1), sTime.wMonth, ErrorCode);
  Delete(Datum,1,iPos);
  Val(Datum, sTime.wYear, ErrorCode);
end;

Allerdings wird hier das Datumsformat nicht berücksichtigt und das Stringparsen macht die Sache wohl auch nicht gerade schnell.