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控件的使用总结的主要内容,如果未能解决你的问题,请参考以下文章