Hallo,
du schreibst einen durch Trim möglicherweise gekürzten String in seiner
Originallänge in den Stream?
Ich würde es folgendermaßen versuchen:
Delphi-Quellcode:
Buffer := TMemoryStream.Create;
s := Trim(xyz.Wert);
size := Length(s);
Buffer.Write(size, SizeOf(size));
if (size > 0) then
Buffer.Write(s[1], size);
Der Code zum Lesen sieht dann so aus:
Delphi-Quellcode:
Buffer.Read(size, SizeOf(Size));
SetLength (xyz^.Wert, size);
if (size > 0) then
Buffer.Read(xyz^.Wert[1], size);
@Muetze1
Das erste Zeichen im String hat den Index 1.
Gruß Hawkeye