Hallo,
ich benutze folgende beiden procedures um einen String in die Datei zuschreiben und ihn wieder auszulesen :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure SaveStringToFile(Filename, SaveString: string);
var fs:TFileStream;
begin
fs:=TFileStream.Create(Filename, fmCreate or fmShareExclusive );
fs.Write(SaveString[1], Length(SaveString));
fs.Free;
end;
procedure LoadStringFromFile(Filename: string; var LoadString: string);
var fs:TFileStream;
begin
fs:=TFileStream.Create(filename, fmOpenRead or fmShareDenyNone);
SetLength(LoadString, fs.Size);
if fs.size>0 then
fs.Read(LoadString[1], fs.Size);
fs.Free;
end |
;
dabei schreibt den String in die erste Zeile. Gibt es einen Befehl, mit dem man in die zweite, dritte oder vierte Zeile der Datei schreiben kann ?
