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