码迷,mamicode.com
首页 > Windows程序 > 详细

Delphi的保存文件对话框-TsaveDialog

时间:2018-08-07 15:14:31      阅读:229      评论:0      收藏:0      [点我收藏+]

标签:path   技术   判断   open   send   class   图片   mem   roc   

TsaveDialog继承于TOpenDialog,只介绍以下几个内容:

1、TsaveDialog如何设定为保存的默认路径是当前程序所在的文件夹:

默认目录是当前程序所在目录应设置属性InitialDir:

opendialog1.InitialDir := extractfilepath(application.ExeName); 
savedialog1.InitialDir := extractfilepath(application.ExeName);

2、设置过滤器、处理文件后缀

技术分享图片
procedure TForm1.Button5Click(Sender: TObject);
begin
SaveDialog1.Filter := ‘*.txt|*.txt‘; //设置过滤器,只保存txt
if savedialog1.execute then
     begin
       if extractfileExt(savedialog1.FileName)<>‘.txt‘ then //判断文件名后缀是否为.txt
       SaveDialog1.FileName := ChangeFileExt(SaveDialog1.FileName,‘.txt‘); //不是的话修改后缀为.txt
Memo2.Lines.SaveToFile(savedialog1.FileName); //保存文件 end; end;
技术分享图片

Delphi的保存文件对话框-TsaveDialog

标签:path   技术   判断   open   send   class   图片   mem   roc   

原文地址:https://www.cnblogs.com/m0488/p/9436571.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!