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

Posted jijm123

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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";

 

以上是关于Delphi中基本控件之SaveDialog控件的使用总结的主要内容,如果未能解决你的问题,请参考以下文章

delphi dbgrideh导入excel 中

delphi 根据控件ID得到句柄

delphi中使用HTTP控件,怎么使用POST的异步方式

delphi7中,如何添加控件?

delphi7中,如何添加控件?

Delphi编程之好用的三方控件