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;