Double und TDateTime 'delokalisiert' speichern

[bernau]

Zitat von weltaran:

OK, Und wie bekomm ich das wieder zurück in ein TDateTime? Das ist ja mein Problem: ich brauche so etwas wie 'sscanf' unter Delphi.

Ungefähr so?

Delphi-Quellcode:

function XMLStrToDate(adatum:string):Tdatetime;
var 
  year,month,day,h,m,s:word;
begin

 // yyyy"-"mm"-"dd"T"hh":"nn":"ss
  year:=strtoint(copy(adatum,1,4));
  month:=strtoint(copy(adatum,6,2));
  day:=strtoint(copy(adatum,9,2));
  result:=encodedate(year,month,day);
 
  h:=strtoint(copy(adatum,12,2));
  m:=strtoint(copy(adatum,15,2));
  s:=strtoint(copy(adatum,18,2));
  Result:=Result+encodeTime(h,m,s,0);
 
end;