String in TFileStream lesen & speichern

[axelf98]

Wie kann man einen String (enthält auch nicht darstellbare Zeichen) in ein TFileStream bekommen und wieder lesen?

Danke!

[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 );

[Christian Seehase]

Moin Axel,

Schreiben:

Delphi-Quellcode:

fs.Write(sOutput[1],Length(sOutput));

Lesen geht dann analog, aber der String muss vorher, z.B. mit SetLength, initialisiert werden, sonst gibt es mit Sicherheit eine AV.

[Hawkeye219]

Hallo,

die Code-Library hat dazu auch was: klick

Gruß Hawkeye

[axelf98]

Danke hat funktioniert!