如何将MEMO中的文件保存为TXT文件,可否给个例子

Question

一句话，你可以结了：)
memo1.lines.SaveToFile('C:\temp.txt')
若txt文件已存在则会复盖它，若不存在则会自动创建它

Answer 1

memo1.Lines.SaveToFile('a.txt'); //???TMemoField(yourField).SaveToFile('a.txt'); //???

Answer 2

memo1.Lines.SaveToFile('a.txt'); //???TMemoField(yourField).SaveToFile('a.txt'); //???

Answer 3

另问：
以memo1.Lines.SaveToFile(）为例，请问哪里介绍
“控件.属性.XXXX” 的。我就是不会这些。这些应该叫函数是吗？？？

Answer 4

if savedialog1.Execute then Memo1.Lines.SaveToFile(savedialog1.FileName)

Answer 5

另问：
以memo1.Lines.SaveToFile(）为例，请问哪里介绍
“控件.属性.XXXX” 的。我就是不会这些。这些应该叫函数是吗？？？
应该叫方法。
TMemo.Lines.SaveToFile(XXX);
Lines是属性，同时这个属性也是个TStrings对象
SaveToFile是TStrings的一个方法

Answer 6

************************************
************************************
if savedialog1.Execute then Memo1.Lines.SaveToFile(savedialog1.FileName)
*************************************
无法自动将文件保存为TXT

Answer 7

再加上过滤不就成了，就是savedialog的那个filter属性中设定缺省后缀名为txt

Answer 8

filter属性*.txt|*.txt保存的文件,不带后缀名.
求助.

Answer 9

兄弟，最全的答案在此。
1.建立一个FORM，在from上加入savedialog1,memo1,button1，设置savedialog1属性如下:
defaultext  txt;
filter 文本文件 *.txt2.代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
 with savedialog1 do
 begin
 if execute then
  begin
   memo1.Lines.SaveToFile(filename);
  end;
 end;
end;

Answer 10

两种方法都行。savetofile优点是直接保存，节省时间。dialog的优点是交互式的。

Answer 11

defaultext  txt; 可使你的文件有后缀名兄弟,只要按照我的方法，一定实现不行的话，就写信
[email protected]
其实这个问题你真的不应该问的。