Delphi的保存文件對話框-TsaveDialog

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;