clColor und TFontStyle in Stream von Virtualstringtree

[himitsu]

wenn schon, dann so

Delphi-Quellcode:

S := IntToStr(Data.clColor);
Len := Length(S);
Stream.write(Len, SizeOf(Len));
Stream.write(PChar(S)^, Len);

du hattest die Länge des in einen String umgewandelten Integers gespeichert
und dann versucht den Integer als Pointer anzusehn und das zu speichern, auf was dieser zufällig zeigt.
Also sei froh, daß es nicht schon beim Speichern geknallt hat.

Die Länge kennst du SizeOf(TColor) = immer 4 Byte
also brauchst du diese nicht zu speichern, da sie sich nicht ändern wird.

Siehe oben (Beitrag #2):
- dein Len ist ein Integer
- TColor ist im Prinzip auch ein Integer
> also einfach genauso speichern und auslesen, wie du es mit Len auch schon machst