Verschieden Datentypen in Stream speichern/laden

[dahead]

Hallo,

ich habe gerade folgendes Problem: ich möchte verschieden Werte aus u. g. Record in einen Stream speichern und dann wieder daraus laden.

Code:

type
  TALNode = record
   ID: Integer;
   Active: Boolean;
   AlarmName: String;
   ImageIndex: Integer;
   AlarmDate,
   AlarmTime: TDateTime;
  end;

Das speichern der Integer, Boolean und String Werte ist kein Problem. Die TDateTime Werte hab ich beim speichern probehalber in Strings umgewandelt (DateToStr, TimeToStr). Ist meiner Meinung nach leider nicht sehr elegant.

Das eigentliche Problem taucht nun beim Laden des Streams auf. Wie rück-konvertiere ich die TDateTime Werte?

Gespeichert wird so:

Code:

Len := Length(DateToStr(NodeArray[I].AlarmDate));
Stream.Write(Len, SizeOf(Len));
Stream.Write(PChar(DateToStr(NodeArray[I].AlarmDate))^, Len);

Geladen so (geht natürlich nicht):

Code:

Stream.Read(Len, SizeOf(Len));
SetLength(NodeArray[I].AlarmDate, Len);
Stream.Read(PChar(DateToStr(NodeArray[I].AlarmDate))^, Len);

Gibt es da eine bessere Möglichkeit? (Achja, ich möchte keine dpCollection usw. verwenden sondern Streams.)

Vielen Dank im Voraus!

[Flocke]

Also DateToStr ist nicht zu empfehlen, da es das im System eingestellte kurze Datumsformat benutzt und somit von Rechner zu Rechner verschieden sein kann.

Möglichkeit 1: TDateTime is einfach ein double, speichere es binär (8 Byte).

Möglichkeit 2: Speichere (Jahr, Monat, Tag) (ggf. Stunde, Minute, Sekunde) so wie du die Integer-Felder abspeicherst.

[Nachtrag]

Die separaten Felder AlarmDate und AlarmTime kannst du dir aber wohl sparen, ein TDateTime kann gleichzeitig Uhrzeit UND Datum beinhalten.

[dahead]

Erstmal vielen Dank für die schnelle Antwort Flocke!

Zu deiner ersten Möglichkeit: Ich hab gesehen, dass TDateTime ein Double ist, weiß aber nicht wie ich es binär speichern kann. könntest du mir da eventuell auf dir sprünge helfen (u. a. deshalb da ich das datum und die zeit nicht aufsplitten möchte, sprich die zweite möglichkeit leider entfällt (voerst zumindest)).

Bezüglich deines nachtrags: ja, das weiß ich. da ich allerdings zwei TDateTimePicker Controls (eines vom Typ Date, eines vom Typ Time) habe, speichere ich datum und zeit lieber separat (das Control kann zwar beide werte intern speichern, zeigt aber entweder datum oder halt uhrzeit an. bin da allerdings noch am optimieren).

[franktron]

Muss das nicht so lauten

Delphi-Quellcode:

Stream.Write(NodeArray[I].AlarmDate, SizeOf(TDateTime));

Also so geht das bei mir

[dahead]

@franktron:

ich habe das gerade mal ausprobiert, und es funktioniert.
wunderbar: einfach und logisch. denke somit ist das problem beseitigt.

vielen dank franktron und flocke!