Eigenen Datentyp anzeigen

[luckystar85]

Ich habe das jetzt so programmiert, wie du es vorgeschlagen hast, nur bekomme ich beim Laden die Meldung "Ungültiger Wert der Eigenschaft". Leider kann man ja nicht debuggen was genau geschrieben und geladen wird, aber das geht ja nicht. Im dfm sind auch Daten

Zitat:

{02000000602E6505000000000884690500008000}

abgespeichert, aber die kann ich ja auch nicht lesen.

Delphi-Quellcode:

Procedure TEventLogPropertyList.LoadFromStream(AStream: TStream);
Var
  i,
  lCount : Integer;
  lColor : TColor;
  lLine  : String;
  lData  : TEventLogPropertyData;
Begin
  AStream.Read(lCount, SizeOf(Integer));

  For i := 0 To Pred(lCount) Do
  Begin
    AStream.Read(lLine, SizeOf(String));
    AStream.Read(lColor, SizeOf(TColor));

    lData       := TEventLogPropertyData.Create;
    lData.Line  := lLine;
    lData.Color := lColor;
    Add(lData);
  End;
End;

Procedure TEventLogPropertyList.SaveToStream(AStream: TStream);
Var
  i : Integer;
Begin
  AStream.Write(Count, SizeOf(Integer));

  For i := 0 To Pred(Count) Do
  Begin
    AStream.Write(Items[i].Line, SizeOf(Items[i].Line));
    AStream.Write(Items[i].Color, SizeOf(Items[i].Color));
  End;
End;

Seht ihr hier irgendwo einen Fehler?