if savedialog1.Execute then begin savedialog1.FileName; //只能得到文件名称(包括路径) 你自己的处理方法 //.............. end;
窗体上有两个控件,memo1,button1,我点button1里,让文件保存保存memo里的内容,代码如下: begin form1.SaveDialog1.Filter :='纯文本文件(*.txt)|*.txt'; form1.SaveDialog1.Title :='*.txt'; if form1.SaveDialog1.Execute =true then begin memo1.Lines.SaveToFile(form1.SaveDialog1.FileName ); end; application.MessageBox('文件保存成功!','提示!',64); end;
begin
savedialog1.FileName; //只能得到文件名称(包括路径)
你自己的处理方法
//..............
end;
begin
form1.SaveDialog1.Filter :='纯文本文件(*.txt)|*.txt';
form1.SaveDialog1.Title :='*.txt';
if form1.SaveDialog1.Execute =true then
begin
memo1.Lines.SaveToFile(form1.SaveDialog1.FileName );
end;
application.MessageBox('文件保存成功!','提示!',64);
end;