查找

[peterzhu1999]

各位，大家好！
小弟一事相求：

想用DELPHI实现一个类似WINDOW2000的搜索功能：

用控件STRINGGRID显示，不知道怎么写哪个递归函数（即先判断是不是文件夹，搜索文件夹下是不是含有要找的文件，一步步下去）；

在线等待！！！

急急急、、、、、

[月光]

FWorkDir := WorkDir;

if (FindFirst(FWorkDir + '\*.*', faDirectory, SearchRec) = 0) then
begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) then
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
memo1.lines.add('[' + SearchRec.Name + ']');
MyList.Add('[' + SearchRec.Name + ']<br><ul>');
getFavorite(WorkDir + '\' + SearchRec.Name);
end;
end;
until FindNext(SearchRec) <> 0;
end;
FindClose(SearchRec);

if (FindFirst(FWorkDir + '\*.*', faDirectory, SearchRec) = 0) then
begin
repeat
if (SearchRec.Attr and faDirectory <> faDirectory) then
begin
memo1.lines.add(Copy(SearchRec.Name, 1, Length(SearchRec.Name) - 4));
MyList.Add('<li><a href="' + GetUrlFileURL(FWorkDir, SearchRec.Name) + '">' + Copy(SearchRec.Name, 1, Length(SearchRec.Name) - 4) + '</a></li>');
end;
until FindNext(SearchRec) <> 0;
end;
FindClose(SearchRec);
MyList.Add('</ul>');

end;

[peterzhu1999]

我以前是做C的，
不是很明白您的意思，你这里是做为一个函数调用的吗？

[peterzhu1999]

能不能给我你的QQ？

[peterzhu1999]

你这边的GetFavorite()是什么函数，什么功能