首先向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";
 

儲存檔案：

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