Problem beim Lesen (und schreiben?) von Stream

[BerndS]

Bei einem Shortstring ist Index 0 das Längenbyte und danach kommen die Zeichen. Bei Strings und Ansistrings beginnt der Puffer ebenfalls bei 1.
Teste es mal im Debugger. Ich habe es natürlich zuvor getestet.

[Andreas13]

Du hast recht, BerndS: Ich habe den AnsiString nicht beachtet...
Andreas

[Andreas13]

Ganz allgemein könnte man es evtl. so schreiben:

Delphi-Quellcode:

...
If Len > 0 Then
      St.ReadBuffer(Result[Low(Result)] , Len*SizeOf(Result[Low(Result)]));

damit das Lesen für jedwenden BufferType funktioniert.
Andreas

[e-gon]

Hallo,

vielen Dank für Eure ganzen Antworten!

Ein kleines Problem habe ich da allerdings noch:
Weiß jemand wie ich die Einstellungen eines Font abspeichere? Font.SaveToStream gibt es leider nicht. Und auch Stream.WriteComponent will nicht funktionieren...

Gruß
e-gon

[himitsu]

Schau dir mal TReader und TWriter an ... das nimmt auch Delphi, um die DFM zu speichern (wobei hier das Binär raus kommt, aber in Text konvertriert werden kann)
Und es gibt auch Mapper für XML oder JSON, um Objekte zu (de)serialisieren.


ReadOrWrite(Pointer(S), Length(S)*StringElementSize(S)); funktioniert mit allen Delphi-Strings (außer ShortString)

aber generell ist es besser statt Pointer das passende PChar/PAnsiChar/PWideChar zu verwenden.

Delphi-Quellcode:

ReadOrWrite(PChar(S), Length(S)*SizeOf(Char));  // String
ReadOrWrite(PAnsiChar(A), Length(A){*SizeOf(AnsiChar)});  // AnsiString
ReadOrWrite(PWideChar(U), Length(U)*SizeOf(WideChar));  // UnicodeString und WideString

und z.B. bei typlosen VAR-Parametern noch ein ^ hinten dran, an den Cast.