一个简单的问题急呀在线等

[knightknight]

function tform1.addtofile(sourcefile,targetfile:string):boolean;
var
target,source:tfilestream;
myfilesize:integer;
begin
try
source:=tfilestream.Create(sourcefile,fmopenread or fmshareexclusive);
target:=tfilestream.Create(targetfile,fmopenwrite or fmshareexclusive);
try
target.Seek(0,sofromend);
target.CopyFrom(source,0);
myfilesize:=source.Size+sizeof(myfilesize);
target.WriteBuffer(myfilesize,sizeof(myfilesize));
finally
target.Free;
source.Free;
end;
except
result:=false;
exit;
end;
result:=true;
end;
我在BUTTON的CLICK事件调用此涵数
if(addtofile('d:\111\project1.exe','d:\444\project1.exe')) then
showmessage('yes')
else
showmessage('no');
结果提示对话框‘YES’，我想问我怎样查找到添加'd:\444\project1.exe'此文件的'd:\111\project1.exe'的内容呀急呀

[goldendays]

用ultraEdit吧

[goldendays]

好像target.CopyFrom(source,0);有点问题

[knightknight]

不明白你们的意思我的意思是现在程序没有问题我想问的'd:\111\project1.exe'被添加到'd:\444\project1.exe'文件怎样才能在'd:\444\project1.exe'文件中看到我所添加的的文件的内容呀