怎么用多线程实现呢？

[heimi]

下面是一个搜索满足扩展名的函数
void FindFile(const AnsiString subpath, TListView *ResultListView,AnsiString Ext)
{ TListItem *pItem; // 用于添加满足条件的项到 ResultListView
TSearchRec sr;
AnsiString path=subpath;
AnsiString fullPath=path+"*.*";
if(FindFirst(fullPath,faAnyFile,sr)==0)
{
AnsiString ls_filename=path+sr.Name;
if(sr.Attr!=faDirectory)
{
if (ExtractFileExt(sr.Name).LowerCase()==Ext)
{
pItem=ResultListView->Items->Add();
pItem->Caption=ls_filename;
}
}
else if(AnsiString(sr.Name)!="." && AnsiString(sr.Name)!="..")
{
FindFile(ls_filename + "\\", ResultListView,Ext);
}
}
while(FindNext(sr)==0)
{
AnsiString ls_filename=path+sr.Name;
if(sr.Attr!=faDirectory)
{
if (ExtractFileExt(sr.Name).LowerCase()==Ext)
{
pItem=ResultListView->Items->Add();
pItem->Caption=ls_filename;
}
}
else if(AnsiString(sr.Name)!="." && AnsiString(sr.Name)!="..")
{
FindFile(ls_filename + "\\", ResultListView,Ext);
}
}
FindClose(sr);

}
现在的一个问题是：怎么用多线程实现搜索呢？比如说：我如果这样写肯定是很慢的！
void FindFile(“c:\\”, TListView *ResultListView,“doc”)
void FindFile("c:\\", TListView *ResultListView,"bmp")
我知道,对VCL的访问只能是互斥的进行。但是Synchronize只能接受无参数的函数呀？
怎么实现呢？谢谢！

[hy1080]

才发现上午回的没帖上去,再发一次
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "FinFunc.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------

__fastcall FinFile::FinFile(bool CreateSuspended,AnsiString subpath,
TListView *ResultListView,AnsiString Ext) : TThread(CreateSuspended)
{
Path = subpath;
List = ResultListView;
ExtName = Ext;
}
//---------------------------------------------------------------------------
void __fastcall FinFile::Execute()
{
FindFile(Path,List,ExtName);
}

class FinFile : public TThread
{
private:
protected:
void __fastcall Execute();
AnsiString Path;
TListView *List;
AnsiString ExtName;
public:
__fastcall FinFile(bool CreateSuspended,AnsiString subpath, TListView *ResultListView,AnsiString Ext);
};

[jiangchun_xn]

问一下：多线程是不是快了？

[l_clove]

多线程互斥访问?和单线程没太大区别吧?

[sczyq]

在线程里给TListView加内容会有问题！

[hy1080]

可以把参数传到线程里阿,
偶试试再线你回吧,

[我不懂电脑]

参数可以用全局变量或类变量代替呀。

[hy1080]

你的函数改的好象有问题,先下了.