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:
27:
28:
29:
30:
31:

procedure TForm2.Button1Click(Sender: TObject);
var
  Filename: string;
  outfile: Textfile;
  a: integer;
begin

a:=0;
Filename:=directorylistbox1.directory;
if FileExists(FileName+edit1.Text+'.txt') then
  begin
  if MessageDlg('Die Datei ' + Edit1.Text + '.txt existiert bereits. Wollen Sie sie überschreiben?', mtWarning, [mbYes, mbNo], 0) = mrYes then
    begin
      AssignFile(outfile, filename+Edit1.Text+'.txt');
      Rewrite(outfile);
        repeat
        Writeln(outfile, form1.memo1.lines.strings[a]);
        a:=a+1;
        until form1.memo1.lines.strings[a]='';
      CloseFile(outfile);
    end;
  end;
AssignFile(outfile, filename+Edit1.Text+'.txt');
Rewrite(outfile);
  repeat
  Writeln(outfile, form1.memo1.lines.strings[a]);
  a:=a+1;
  until form1.memo1.lines.strings[a]='';
CloseFile(outfile);

end;					

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:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

...
Var
 memoAll : TStringList;
...
procedure TForm1.SpeicherBtnClick(Sender: TObject);
begin
  memoAll:=TStringList.Create;
  memoAll.Add('Memo 1:');                        { Marker 1 setzen }
  memoAll.AddStrings(Memo1.Lines);
  memoAll.Add('Memo 2:');                        { Marker 2 setzen }
  memoAll.AddStrings(Memo2.Lines);
  memoAll.Add('Memo 3:');                        { Marker 3 setzen }
  memoAll.AddStrings(Memo3.Lines);
  memoAll.SaveToFile('F:\Text.txt');
  memoAll.Free;
end;

procedure TForm1.LadenBtnClick(Sender: TObject);
Var
 x,m1,m2,m3 : Integer;

begin
  Memo1.Clear;
  Memo2.Clear;
  Memo3.Clear;
  memoAll:=TStringList.Create;
  memoAll.LoadFromFile('F:\Text.txt');
  for x:=0 to memoAll.Count-1 do
   begin
     m1:=memoAll.IndexOf('Memo 1:');     { Position der Marker finden }
     m2:=memoAll.IndexOf('Memo 2:');
     m3:=memoAll.IndexOf('Memo 3:');
   end;
  for x:=m1+1 to m2-1 do Memo1.Lines.Add(memoAll.Strings[x]);
  for x:=m2+1 to m3-1 do Memo2.Lines.Add(memoAll.Strings[x]);
  for x:=m3+1 to memoAll.Count - 1 do Memo3.Lines.Add(memoAll.Strings[x]);
  memoAll.Free;
end;					

1:

memo1.lines.savetofile(edit1.text);					

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

procedure TForm1.Button1Click(Sender: TObject);
var temp : string;
begin
temp := edit1.text ;
memo1.Lines.SaveToFile(temp);
showmessage ('Gespeichert')
end;					

1:
2:
3:
4:

if savedialog1.execute then
begin
memo1.lines.savetofile(savedialog1.filename);
end;					

1:
2:
3:
4:
5:
6:

//wenn der Savedialog geschlossen wurde, 
if savedialog1.execute then
begin
//Den Text in dem Pfad speichern, der ausgewählt wurde (savedialog1.filename)
memo1.lines.savetofile(savedialog1.filename);
end