Question

delphi savedialog保存 默认文件名

我想在用savedialog保存文件时，对话框自动有默认的文件名
我的代码如下：
procedure TForm5.Button1Click(Sender: TObject);
var
a,b : string;
begin
b := datetimetostr(now) + '备份文件';
savedialog1.FileName := b;
try
if savedialog1.Execute then
begin
a := savedialog1.FileName + '.bak';
with U_ado.ADObfhf do
begin
close;
sql.Clear;
sql.Add('backup database db_EMS to disk = ' + '''' + a + '''');
execsql;
end;
application.MessageBox('备份成功！','提示',64);
end;
except
application.MessageBox('备份失败！','提示',64);
end;
end;

但运行的时候不会弹出对话框，向大家请教了！
经过测试，发现问题在哪了，其他都没问题，就是如果在savedialog1.FileName 里面添加time的话就会不能打开对话框，这是为什么呢？继续测试中……

Answer 1

DateTimeToStr（Now）这句错了

你写DateToStr(Now)这样就OK了
或者你也可以写FormatDateTime('yyyymmdd',Now);

Answer 2

savedialog0。FileName:='filename'; savedialog1。Execute; 晕倒,不y对你拍我 ekТ常aёjxwнъbqⅠⅧcg堙

追问

我这个上面哪错了啊？

Answer 3

可以直接在dialoge控件的属性里面设置！

追问

默认名我要求是显示当前点击时间

追答

begin
SaveDialog1.Filter := '*.bak'|*.bak'';
if savedialog1.execute then
begin
if extractfileExt(savedialog1.FileName)'.bak'' then
SaveDialog1.FileName := ChangeFileExt(a,'.bak'');
····
end;
end;