Stream-Problem

[pszopp]

Zitat von sniper_w:

IMO, ist das, das Beste lösung:

Nicht ganz:
Die Methoden "ReadString" und "WriteString" machen Probleme, falls der String leer ist.
Deswegen die Größe vor dem Laden und Speichern nochmal kontrollieren:

Delphi-Quellcode:

function TmyFileStream.ReadString: string;
var
  len:Integer;
begin
  Read( len, SizeOf(len) );
  SetLength( Result, len );
  if (len > 0) then
    Read( Result[1], len );
end; 


procedure TmyFileStream.WriteString(myString: string);
var
  len:Integer;
begin
  len := Length( myString );
  Write( len, SizeOf(len) );
  if (len > 0) then
    Write( myString[1], Len );
end;

So sollte es besser sein.

Gruß,
pszopp