Double und TDateTime 'delokalisiert' speichern

[weltaran]

Hallo Leute!

Ich möchte in meinem (XML-)File Zeitstempel (TDateTime) und double-Werte speichern, und zwar ohne länderabhängige Formatierungen. Mit StrToDateTime und DateTimeToStr ist dies noch möglich, allerdings ohne Milisekunden, was mich stört. Bei FloatToStrF gibt es kein entsprechendes Pendant zum zurückholen und jedesmal DecimalSeparator zu überschreiben (in der GUI möchte ich latürnich lokalisierte Ausgaben machen) finde ich irgendwie unprofessionell.

Geht das auch irgendwie 'generischer' und sauberer?

Ciao

[Bernhard Geyer]

ISO-Zeitformat ist 'ne Möglichkeit: YYYY-MM-DD hh:nn:ss

[bernau]

Zitat:

Ich möchte in meinem (XML-)File Zeitstempel (TDateTime) und double-Werte speichern, und zwar ohne länderabhängige Formatierungen.

Gib doch mal ein Beispiel, wie der XML-Code aussehen soll?

[Ferber]

Hi !

Delphi-Quellcode:

function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

{ DecodeDate decodes the integral (date) part of the given TDateTime value
  into its corresponding year, month, and day. If the given TDateTime value
  is less than or equal to zero, the year, month, and day return parameters
  are all set to zero. }

procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

{ DateTimeToSystemTime converts a date and time from Delphi's TDateTime
  format into the Win32 API's TSystemTime format. }

Könnte das helfen :?:

[shmia]

Kuck mal da:
http://www.hackcraft.net/web/datetime/#xsd
oder hier wäre die orginale, offizielle Quelle:
http://www.w3.org/TR/xmlschema-2/
demnach

Delphi-Quellcode:

function XMLDatetime(d:TDateTime):string;
begin
   result := FormatDateTime('yyyy"-"mm"-"dd"T"hh":"nn":"ss', d);
end;

[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.

Ciao

[bernau]

Zitat:

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;

[weltaran]

Hi!

Ja, genau so! Vielen Dank. 'copy' war mir gänzlich unbekannt.

Ciao

[weltaran]

Jetzt hab' ich immer noch das Problem mit den double-Werten. Diese müssen auch 'delokalisiert' gespeichert UND wieder eingelesen werden. Wie komm ich denn an den Nachkommaanteil der Zahl? Der ganzzahlige Anteil ist mit Round und Ceil/Floor zu bekommen.

Ciao

[bernau]

Such mal nach "frac"