index is out of date是tlist的错误,你是不是用了包含tlist的类或控件,
如果用了,请仔细检查
如果用了,请仔细检查
解决方案 »
- 问题虽小,但是却不懂~!
- 请问.duc文件怎么打开,一直打不开郁闷死了(第一次用delphi开发)
- 菜鸟问题 刚学的 一般人都懂 就是我不懂!!!!!请进
- dbe中的table的updatemodue属性可以控制update sql语句的where语句那么ado中adotable是怎么控制的
- 求教热心人!!
- 小问题
- 有没有比RICHEDIT功能更强大的文本编辑控件!急~~~~在线等待
- 怎么这么耗内存呀,这就是Delphi?这样的东西也算是聪明人用的,忍受不了,受不了
- 如何把运行程序最小化?
- 想问问各位
- 我要辞职,我要走人,我发誓:“以后再也不给资本家们干活”!我要为自个干!
- 进来看一下,绝对获誉甚多
既来之则up之.....
up
function DoCopyDir(sDirName:String;sToDirName:String):Boolean;
var
hFindFile:Cardinal;
t,tfile:String;
sCurDir:String[255];
FindFileData:WIN32_FIND_DATA;
begin
sCurDir:=GetCurrentDir;
ChDir(sDirName);
hFindFile:=FindFirstFile('*.*',FindFileData);
if hFindFile<>INVALID_HANDLE_VALUE then
begin
if not DirectoryExists(sToDirName) then
ForceDirectories(sToDirName);
repeat
tfile:=FindFileData.cFileName;
if (tfile='.') or (tfile='..') then
Continue;
if FindFileData.dwFileAttributes=
FILE_ATTRIBUTE_DIRECTORY then
begin
t:=sToDirName+'\'+tfile;
if not DirectoryExists(t) then
ForceDirectories(t);
if sDirName[Length(sDirName)]<>'\' then
DoCopyDir(sDirName+'\'+tfile,t)
else
DoCopyDir(sDirName+tfile,sToDirName+tfile);
end
else
begin
t:=sToDirName+'\'+tFile;
CopyFile(PChar(tfile),PChar(t),false);
end;
until FindNextFile(hFindFile,FindFileData)=false;
end
else
begin
ChDir(sCurDir);
result:=false;
exit;
end;
ChDir(sCurDir);
result:=true;
end;function CopyDir(sDirName:String;sToDirName:string):Boolean;
begin
if Length(sDirName)<=0 then
exit;
//拷贝...
Result:=DoCopyDir(sDirName,sToDirName);
end;
程序中用 CopyDir进行文件拷贝,如CopyDir('c:\my ducoments\data','d:\data')就将c:\my ducoments\data目录下的文件拷贝到d:\data目录下。