保存文件 delphi SaveDialog

保存文件 delphi SaveDialog procedure TForm1.保存Click(Sender: TObject);
begin
//SaveDialog1.
SaveDialog1.Initialdir := 'D:\工作项目\txt_files';
SaveDialog1.Filter := '*.txt|*.txt'; //设置过滤器，只保存txt
if savedialog1.execute then
begin
if extractfileExt(savedialog1.FileName)<>'.txt' then //判断文件名后缀是否为.txt
SaveDialog1.FileName := ChangeFileExt(SaveDialog1.FileName,'.txt'); //不是的话修改后缀为.txt

Memo1.Lines.SaveToFile(savedialog1.FileName); //保存文件
end;
end;


　　　　　　　　　　　　　 查看评论 回复