Delphi的保存文件对话框-TsaveDialog

Posted 2020-12-28 m0488

TsaveDialog继承于TOpenDialog，只介绍以下几个内容：

1、TsaveDialog如何设定为保存的默认路径是当前程序所在的文件夹：

默认目录是当前程序所在目录应设置属性InitialDir：

opendialog1.InitialDir := extractfilepath(application.ExeName); 
savedialog1.InitialDir := extractfilepath(application.ExeName);

2、设置过滤器、处理文件后缀

procedure TForm1.Button5Click(Sender: TObject);
begin
SaveDialog1.Filter := ‘*.txt|*.txt‘; //设置过滤器，只保存txt
if savedialog1.execute then
     begin
       if extractfileExt(savedialog1.FileName)<>‘.txt‘ then //判断文件名后缀是否为.txt
       SaveDialog1.FileName := ChangeFileExt(SaveDialog1.FileName,‘.txt‘); //不是的话修改后缀为.txt
 
        Memo2.Lines.SaveToFile(savedialog1.FileName); //保存文件
     end;
end;