W wutaoqing Unregistered / Unconfirmed GUEST, unregistred user! 2007-05-31 #1 文件保存：实现功能>>点击保存按钮时，会自动将Memo1里面的 内容保存在当前目录下 如果当前目录有这 .Txt文件的话 就覆盖 没有这 .Txt文件的话就自动新建一个 .Txt文件 (是自动保存，不用选择路径)
文件保存：实现功能>>点击保存按钮时，会自动将Memo1里面的 内容保存在当前目录下 如果当前目录有这 .Txt文件的话 就覆盖 没有这 .Txt文件的话就自动新建一个 .Txt文件 (是自动保存，不用选择路径)
K kaida Unregistered / Unconfirmed GUEST, unregistred user! 2007-05-31 #2 procedure TFormMain.Button1Click(Sender: TObject); begin Memo1.Lines.SaveToFile('xxx.txt'); end;
W wutaoqing Unregistered / Unconfirmed GUEST, unregistred user! 2007-05-31 #3 Memo1.Lines.SaveToFile('xxx.txt'); ？？？ 路迳呢？？？？这样写肯定不行的 ，要自动生成 XX.Txt文件 并且自动保存在莫为的工程文件里面
K kukow Unregistered / Unconfirmed GUEST, unregistred user! 2007-05-31 #4 list.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'/'+datetostr(Date)+'.txt');
K Ken Zheng Unregistered / Unconfirmed GUEST, unregistred user! 2007-06-02 #7 if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt'); 如果不需要保存对话框的话,直接写成 Memo1.Lines.SaveToFile('XXX.txt');
if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt'); 如果不需要保存对话框的话,直接写成 Memo1.Lines.SaveToFile('XXX.txt');
L lngdtommy Unregistered / Unconfirmed GUEST, unregistred user! 2007-06-02 #8 Memo1.Lines.SaveToFile('xxx.txt');
L liuguilg Unregistered / Unconfirmed GUEST, unregistred user! 2007-06-09 #9 Memo1.Lines.SaveToFile('XXX.txt'); 就是自动保存在工程文件里面 ；要写到其他路径才，另外写路径
