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

 procedure TForm3.bt_speichernClick(Sender: TObject);
begin
if savedialog1.execute then
begin
m_1.lines.savetofile(savedialog1.filename);
end					

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

procedure TForm2.Button1Click(Sender: TObject);

begin
memo1.lines.savetofile('c:\test2.txt')

end;

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					

1:
2:
3:
4:

if opendialog1.execute then
begin
  memo1.lines.loadfromfile(opendialog1.filename);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm2.Button1Click(Sender: TObject);
var
  i:Integer;
  StringList:TStringList;
begin
  StringList := TStringList.Create();
  StringList.BeginUpdate();
  for i:=0 to ComponentCount-1 do
  begin
    if Components[i] is TEdit then
    begin
      StringList.Add( TEdit(Components[i]).Text );
    end;
    if Components[i] is TMemo then
    begin
      StringList.Add( TMemo(Components[i]).text );
    end;
  end;
  StringList.EndUpdate();
  StringList.SaveToFile( 'c:\myEditFelder.txt' );
end;