偶用copyfile函数备份数据库文件，当数据库文件为1个时，备份成功，但文件为2个时，系统却没有反应？怎么回事？代码如内，少于10行

[chris2019]

var
scrfile1,objfile1,scrfile2,objfile2:string;
begin
scrfile1:=opendialog1.filename ;
objfile1:=savedialog1.filename ;
copyfile(pchar(scrfile1),pchar(objfile1),false);
scrfile2:=opendialog1.filename ;
objfile2:=savedialog1.filename ;
copyfile(pchar(scrfile2),pchar(objfile2),false);
end;

[chris2019]

帮帮偶

[iroi]

我试了一下，是好的。但你第2次COPY的文件和第一次一样？

[dext]

对嘛！Copy的第一个文件和第二个文件一样
建议在他们中间加上：
opendialog1.Execute;
savedialog1.Execute;

[chris2019]

不明白，能不能说详细一点？

[hzb]

var
scrfile1,objfile1,scrfile2,objfile2:string;
begin
scrfile1:=opendialog1.filename ;
objfile1:=savedialog1.filename ;
copyfile(pchar(scrfile1),pchar(objfile1),false);

if (opendialog1.Execute) and (savedialog1.Execute)
then begin
scrfile2:=opendialog1.filename ;
objfile2:=savedialog1.filename ;
copyfile(pchar(scrfile2),pchar(objfile2),false);
end;
end;

[chris2019]

不行，偶点击 备份 按钮，结果却打开了opendialog