G
giszpp
Unregistered / Unconfirmed
GUEST, unregistred user!
急死我了。。哪位大虾帮帮了。。。。 ： 关于SaveDialog 和 Copyfile函数。。。 在线等，各位大哥大姐指点一下。。。。 ( 积分: 30 )<br />看下面一段代码，为什么SaveDialog显示后，Copyfile函数就出错？ 我试过了，如果把Savedialog.execute;屏蔽掉 或者 显示后点取消，能够正常copy文件，但是如果显示后填入一文件名，即使后面的Copyfile函数和Savedialog无关，也不能实现Copy，
不解不解，望指点。。。。。。。
procedure TForm1.Button1Click(Sender: TObject);
var
tempstr:string;
begin
if not SaveDialog1.Execute then exit;
//tempstr:=SaveDialog1.FileName;
if CopyFile('source.txt','c:/back.txt',false) then
showmessage('备份成功')
else
showmessage('备份失败');
end;
不解不解，望指点。。。。。。。
procedure TForm1.Button1Click(Sender: TObject);
var
tempstr:string;
begin
if not SaveDialog1.Execute then exit;
//tempstr:=SaveDialog1.FileName;
if CopyFile('source.txt','c:/back.txt',false) then
showmessage('备份成功')
else
showmessage('备份失败');
end;
]