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;