急：怎样统计在一个文件夹中具有某一特定后缀的文件个数啊？又怎样才能遍历这些文件呢（事先不知道这些文件的数量及名字）？(50分)

sweetychild · 2002-03-29

急：怎样统计在一个文件夹中具有某一特定后缀的文件个数啊？又怎样才能遍历这些文件呢急：怎样统计在一个文件夹中具有某一特定后缀的文件个数啊？又怎样才能遍历这些文件呢（事先不知道这些文件的数量及名字）？ 最好给写几行源玛，先谢啦

sweetychild · 2002-03-29

我将你的函数加入到我的单元中并在PUBLIC部分声明了它，可是运行通不过提示“unsatisfied forward or external declaration:'tform1.findall'” 这是为什么，提示行就在PUBLIC声明FINDALL部分

sweetychild · 2002-03-29

对了，忘了说声“谢谢帅哥”了：）

李衍智 · 2002-03-29

这样： 1、加入一个FileListBox控件 2、设它的Mask 为比如：*.txt 3、文件个数：filenum=FileListBox->Items->Count; 4、遍历：   for(i=0;i<filenum;i++)   {      filename =  FileListBox1->Items->Strings;      。。。。。。    } 5、你用delphi的话把 = 变为 :=    -> 变为   .    然后替代for循环。

kingdeezj · 2002-03-30

kingdeezj · 2002-03-30

procedure TForm1.FindAll(Path: String); var   sr:TSearchRec;   fr:Integer; begin if length(path) <> 3 then   Path := path+'/*.*'   else   Path := path+'*.*'; fr:=FindFirst(Path,faAnyFile,sr); while fr=0 do   begin     //处理文件     if pos('txt',sr.name)>0 then     showmessage(sr.name);   fr:=FindNext(sr);   end; FindClose(sr); end;

sweetychild · 2002-03-31

>>kingdeezj:还是那个问题呀，仍然没解决 >>李衍智：for循环中将执行完最后一条符合条件的文件处理后会出现提示：project project1.exe raised exception class estringlisterror with message'list index out of bounds(7)'process stopped.use step or run to continue. 其中filenum是等于7的，不知道为什么 谢谢大家：）

李衍智 · 2002-03-31

filelistbox的item是0基的，也就是filenum=7,最后一个是item->Strings[6]. 你循环搞错了。

sweetychild · 2002-03-31

的确是这个原因，谢谢李大哥：）

kingdeezj · 2002-03-31

不用放到PUBLIC里进行声明。

sweetychild · 2002-03-31

不好意思分不多，谢谢两位大哥：）

急：怎样统计在一个文件夹中具有某一特定后缀的文件个数啊？又怎样才能遍历这些文件呢（事先不知道这些文件的数量及名字）？(50分)

sweetychild

Unregistered / Unconfirmed

sweetychild

Unregistered / Unconfirmed

sweetychild

Unregistered / Unconfirmed

李衍智

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

sweetychild

Unregistered / Unconfirmed

李衍智

Unregistered / Unconfirmed

sweetychild

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

sweetychild

Unregistered / Unconfirmed

Similar threads