Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi String in TFileStream lesen & speichern (https://www.delphipraxis.net/97169-string-tfilestream-lesen-speichern.html)

axelf98 6. Aug 2007 11:15


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

Danke!

alleinherrscher 6. Aug 2007 11:20

Re: String in TFileStream lesen & speichern
 
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 6. Aug 2007 11:21

Re: String in TFileStream lesen & speichern
 
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 6. Aug 2007 11:37

Re: String in TFileStream lesen & speichern
 
Hallo,

die Code-Library hat dazu auch was: klick

Gruß Hawkeye

axelf98 6. Aug 2007 12:38

Re: String in TFileStream lesen & speichern
 
Danke hat funktioniert!


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz