Entwickler-Ecke

Dateizugriff - ...eine Textdatei in einen String laden bzw. speichern?


Tino - Do 01.08.02 08:40
Titel: ...eine Textdatei in einen String laden bzw. speichern?
Mit den folgenden zwei Proceduren hat man die Möglichkeit den Inhalt einer normalen Textdatei in einen String zu laden bzw den String in die Textdatei zu schreiben:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
 
procedure SaveStringToFile (Filename, SaveString: string); 
var 
  fs: TFileStream; 
begin 
  fs := TFileStream.Create (Filename, fmCreate); 
  try 
    if SaveString <> '' then 
      fs.Write (SaveString[1], Length (SaveString)); 
  finally 
    fs.Free; 
  end;
end; 

procedure LoadStringFromFile(Filename: string; var LoadString: string); 
var
  fs: TFileStream; 
begin 
  fs := TFileStream.Create (Filename, fmOpenRead or fmShareDenyNone); 
  try
    SetLength (LoadString, fs.Size); 
    if fs.size>0 then  
      fs.Read (LoadString[1], fs.Size); 
  finally
    fs.Free; 
  end;
end;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!