Delphi中基本控件之SaveDialog控件的使用总结

时间：2022-05-30 17:34:40

首先向Form窗体拖一个SaveDialog控件Delphi中基本控件之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";
</pre><pre code_snippet_id="151588" snippet_file_name="blog_20140110_1_5576750" name="code" class="delphi"><span style="color:#ff0000;">保存文件：</span>
dlgSave->Filter = "(*.txt)|*.txt|(*.doc;*.docx;*.xls;*.xlsx)|*.doc;*.docx;*.xls;*.xlsx|(*.jpg;*.png;*.gif;*.bmp;*.jpeg)|*.jpg;*.png;*.gif;*.bmp;*.jpeg";












更详细的讲解Delphi操作读写INI文件连接：http://wenku.baidu.com/link?url=ktXMUwthCYhMpFUSRDJrNQRs0HLZK78-gbUc6MH8UZF-GPVZHId1ZGe2XtYASSthpvU7z_JY8Bik-Z9s4hHe213RPnfm31NW8rnjQXU6b_q&qq-pf-to=pcqq.group

标签：

相关文章