文件名称：Delphi上传文件（复制）一例.rar
文件大小：8KB
文件格式：RAR
更新时间：2022-07-30 11:10:28
Delphi源码-系统相关
Delphi上传文件一例附程序源码，实际上是一个复制文件的例子，设置文件的源路径，再重新定义需要复制后的路径，点击“确定”即可上传复制文件到新目录下。以下是核心的代码： if (Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')then begin Try CopyFile(Pchar(Trim(Edit1.Text)),Pchar(Trim(Edit2.Text) '\' ExtractFileName(Trim(Edit1.Text))),False); ShowMessage('拷贝成功.'); Edit1.Clear; Edit2.Clear; Except ShowMessage('系统出错.'); End; end;
【文件预览】：
srcfans.com
----上传文件()
--------Project2.res(876B)
--------Unit1.ddp(51B)
--------Unit1.dcu(5KB)
--------Project2.dsk(5KB)
--------Unit1.dfm(2KB)
--------Project2.dpr(188B)
--------Project2.cfg(434B)
--------Project2.dof(2KB)
--------Unit1.pas(1KB)