Memo Text in Textfile speichern

Marc. · Verfasst: Mo 27.02.06 20:22

Delphi-Quelltext

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

var s:string;
    f: textfile;
begin
 if NOT savedialog1.execute then
  exit;

 s := memo1.text;

 assignfile(f, savedialog1.filename+'.txt');
 rewrite(f);
 write(f, s);
 closefile(f);
end;

so in etwa

T3cn0 · Hält's aus hier Beiträge: 5

ok aber was ist wenn ich mehrer memos hab , weil im mom speichert es ja nur des erste memo

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme