1:
2:
3:

Memo1.lines.SaveFromFile('datei.txt');
//und
Memo1.lines.SaveToFile('datei2.txt');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

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);
  fs.Read(LoadString[1], fs.Size);
  fs.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

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   //Diese Abfrage mußte noch rein
    fs.Read(LoadString[1], fs.Size); 
  fs.Free; 
end;