标签：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;
标签：path 技术 判断 open send class 图片 mem roc
原文地址：https://www.cnblogs.com/m0488/p/9436571.html
