兔 兔爷 Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-08 #1 我使用两个edit控件(edit1,edit2),现想把edit1中输入的文件名复制到edit2.text指定的地方。我该怎样做???(每次输入的文件名不一样)。<br>请举例。
热 热血 Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-08 #2 Edit2->Text->Insert(Edit1->Text,0);把Edit1->Text插入到Edit2->Text;
C cAkk Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-08 #3 copyfile(pchar(edit1.text),pchar(edit2.text),false);
C Crane Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-08 #5 cakk:稍微改一下<br>t;string;<br>t:=edit2.text+edit1.text;<br>copyfile(pchar(edit1.text),pchar(t),false);<br>(true 则检查是否已有此文件)<br><br>审题;-)<br><br>
cakk:稍微改一下<br>t;string;<br>t:=edit2.text+edit1.text;<br>copyfile(pchar(edit1.text),pchar(t),false);<br>(true 则检查是否已有此文件)<br><br>审题;-)<br><br>
S sonie Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-17 #6 同志们:不能这样做,因为edit1.text可能包含路径(如c:/windows/win.com),<br>而且还可能在系统中不存在此文件。所以代码如下<br>sr:TSearchRec;<br>FindFirst(Edit1.text,faAnyFile,sr)<>0 then showmessage('不存在此文件‘)<br>Else <br>begin<br> Edit2->Text->Insert(sr.name,0);<br> copyfile(pchar(edit1.text),pchar(edit2.text),false);<br>....<br>end;
同志们:不能这样做,因为edit1.text可能包含路径(如c:/windows/win.com),<br>而且还可能在系统中不存在此文件。所以代码如下<br>sr:TSearchRec;<br>FindFirst(Edit1.text,faAnyFile,sr)<>0 then showmessage('不存在此文件‘)<br>Else <br>begin<br> Edit2->Text->Insert(sr.name,0);<br> copyfile(pchar(edit1.text),pchar(edit2.text),false);<br>....<br>end;