Delphi 用FindFirst函数找含有特定字符的文件名,为什么2003系统内查找结果有一部分符合条件的文件找不到
代码如下:
function FindFileName(Fpath,FName:string):TStringList;
//Fpath 目录路径,FName 模糊查找特定字符
var
sr: TSearchRec;
begin
Result:=TStringList.Create;
Result.Clear;
if FindFirst(Fpath + '*'+Fname+'*.txt', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory)=0 then
Result.Add(sr.Name) ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
(1)FindFirst 查找faAnyFile 为什么总有一部分文件名 明明含有所要查找的字符 为什么找不到?和什么有关系?如何改?
(2)我每天生成10000个文件,在文件夹里面都不删除,如何提升查找速度?
(3)TStringList类的变量最长或者Count数最大是多少,会不会有溢出?
答案:尝试如下
doc:=wb1.document as ihtmldocument2;
userinputelembent:=(doc.all.item('fastpostmessage',0) as ihtmlinputelement);
userinputelement.value:='1111111' ;
其他:if FindFirst(Fpath + '*'+Fname+'*.txt', faAnyFile+ faHidden+ faSysFile, sr) = 0 then
上一个:关于学习JAVA和C# 和delphi 谁能给个初学者学习 的大纲? 还有初学者别说什么书什么书的?
下一个:delphi程序使用adoquery嵌套查询,SQL在SQL SERVER 2000查询分析器执行正确,但在delphi程序中查询无结果