String in TFileStream lesen & speichern

[alleinherrscher]

Delphi-Quellcode:

var filestream:afilestream;
    str:string;
    len:integer;

len := Length( str );
filestream.Write(len, SizeOf(len) );
filestream.Write( PChar(str)^, len );

und lesen

Delphi-Quellcode:

  filestream.Read( len, SizeOf(len) );
  SetLength( str, len );
  filestream.Read( PChar(str)^, len );