文件复制问题,求助!!!(200分)

  • 主题发起人 主题发起人 superdypsuperdy
  • 开始时间 开始时间
S

superdypsuperdy

Unregistered / Unconfirmed
GUEST, unregistred user!
想实现这个功能:
一个指定的文件(已经包括完整路径)如:f:/picture/123.jpg,现在要把这个文件
复制到一个指定的目录下:
如C:/windows/下。文件名称不要求改变,如果在原来的C:/windows/下有这个文件,则
不出现提示而直接覆盖它?
:) 
请指数?
用copyfile(fromfile,tofile)函数
我定义了两个string变量:fromfile,tofile。结果在编译的时候就在copyfile(fromfile,tofile)
出错。
在interface
uses中已经加了filectrl。。
 
copyfile(fromfile,tofile,false),不提示直接覆盖原有文件,在delphi中运行可能会提示
i/o错误,不用管
 
可是为何定义两个变量。老提示出错呢
[Error] Unit1.pas(184): Incompatible types: 'String' and 'PChar'
 
你定义的变量是String类型的!
用在copyfile里应该把它转化成Pchar型

var s:string;
在变量前加上Pchar(s),然后用到程序中去!!
试试^^^^^^^^^^^^^^^^^
 
楼上说的对
 
好。我试试看。通过各加100。。多谢各位支持
 
CopyFile(pchar(fromfile),pchar(tofile),False)
 
补充说明:
变量a,b为string,在后面请加上true
copyfile(Pchar(a),Pchar(b),false);
 
现在要下班了。没时间调试。说话要算话。。星期一来测试。可行的话不食言!
 
var
thearray:array of string;
begin
....
.....
.......

thearray:=s;//s为strings类型的变量
i:=i+1;
总在thearray:=s;出现错误
错误如下:
project project.exe raised exception class EAccessviolation with message
'access' violation at address XXXXXXXXX in medule project.exe write of a
address XXXXXX
好像是数组索引越界,怎么可能越界。这个i的变量初始赋值为0或1均出错。即将要进行
赋值操作时出的如上的错误的??
我倍感无解?希望指教!! 
 
后退
顶部