Delphi中基本控件之SaveDialog控件的使用總結

首先向Form窗體拖一個SaveDialog控件，Name屬性改為：dlgSave，然后添加一個按鈕，Caption屬性改為：瀏覽，Name屬性改為：btnBrowse。

然后雙擊瀏覽按鈕添加如下代碼：

procedure Tfoffertool.btnbrowseClick(Sender: TObject);
var
  filePath :string;
 
begin
  dlgSave.Title := '保存文件路徑';           //設置瀏覽對話框標題名
  dlgSave.Filter:= '文本文件(*.dbf)|*.dbf';  //設置保存文件的擴展名
  dlgSave.DefaultExt := '.dbf';              //為保存文件名自動添加擴展名
  if dlgSave.Execute then
  begin
    filePath := Trim(dlgSave.FileName);     //獲取保存路徑
    ShowMessage(filePath);
  end
end;

注：dlgSave.DefaultExt := '.dbf'; 一行實現的是我們只填寫文件名默認保存為擴展名為：.dbf；當然我們也可以自己給定。

如果想指定其他格式的文件：

打開文件：

dlgOpen.Filter = "(*.txt)|*.txt|(*.doc;*.docx;*.xls;*.xlsx)|*.doc;*.docx;*.xls;*.xlsx|(*.jpg;*.png;*.gif;*.bmp;*.jpeg)|*.jpg;*.png;*.gif;*.bmp;*.jpeg"t|(*.doc;*.docx;*.xls;*.xlsx)|*.doc;*.docx;*.xls;*.xlsx|(*.jpg;*.png;*.gif;*.bmp;*.jpeg)|*.jpg;*.png;*.gif;*.bmp;*.jpeg";

保存文件：

dlgSave->Filter = "(*.txt)|*.txt|(*.doc;*.docx;*.xls;*.xlsx)|*.doc;*.docx;*.xls;*.xlsx|(*.jpg;*.png;*.gif;*.bmp;*.jpeg)|*.jpg;*.png;*.gif;*.bmp;*.jpeg";