如何复制文件???(50分)

  • 主题发起人 主题发起人 兔爷
  • 开始时间 开始时间

兔爷

Unregistered / Unconfirmed
GUEST, unregistred user!
我使用两个edit控件(edit1,edit2),现想把edit1中输入的文件名复制到edit2.text指定的地方。我该怎样做???(每次输入的文件名不一样)。<br>请举例。
 
Edit2-&gt;Text-&gt;Insert(Edit1-&gt;Text,0);把Edit1-&gt;Text插入到Edit2-&gt;Text;
 
copyfile(pchar(edit1.text),pchar(edit2.text),false);
 
原来是这个意思。
 
cakk:稍微改一下<br>t;string;<br>t:=edit2.text+edit1.text;<br>copyfile(pchar(edit1.text),pchar(t),false);<br>(true 则检查是否已有此文件)<br><br>审题;-)<br><br>
 
同志们:不能这样做,因为edit1.text可能包含路径(如c:/windows/win.com),<br>而且还可能在系统中不存在此文件。所以代码如下<br>sr:TSearchRec;<br>FindFirst(Edit1.text,faAnyFile,sr)&lt;&gt;0 then showmessage('不存在此文件‘)<br>Else <br>begin<br>&nbsp; Edit2-&gt;Text-&gt;Insert(sr.name,0);<br>&nbsp; copyfile(pchar(edit1.text),pchar(edit2.text),false);<br>....<br>end;
 
接受答案了.
 
后退
顶部