在FINDFIRST,FINDNEXT的循环中就可以做到。
解决方案 »
- Webbrowser怎么判断网页里某个ID是否存在
- combobox中屏蔽自动匹配的问题!在线等...
- delphi7 无法编译程序怎么解决
- 图形工具:怎样在bmp的放大状态下画线,写字等(画的线条也有放大效果),就象window的画图工具一样。
- 窗体的BiDiMode属性是什么意思?
- 请问高手:InterBase Guardian 的数据库默认的用户名和密码是什么?
- 如何实现在ListView中对Items的双击事件?
- socket中怎样传递自定义数据结构?
- 关于网页制作
- 不难拿呀,关于TEdit
- 没有标题栏,用创建的按钮实现最小、最大并可移动,请教怎么办?
- 我是一个新手 写了一段程序 但执行起来比较慢 不知各位高手有没有办法
var
nI: Integer;
SearchRec: TSearchRec;
sFileName: String;
sMainpath: String;
begin if MainPath[Length(MainPath)]='\' then sMainpath:=MainPath
else sMainpath:=MainPath+'\';
FindFirst(sMainPath+'*.*',faAnyFile,SearchRec);
if SearchRec.Name<>'' then
begin
sFileName:=UpperCase(SearchRec.Name);
if (Pos('A',sFileName)=1) then
listbox1.Items.Add(sMainPath+SearchRec.Name);
if (SearchRec.Attr and faDirectory)=1 then
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
GetAllFiles(sMainPath+SearchRec.Name);
while (FindNext(SearchRec)=0) do
begin
sFileName:=UpperCase(SearchRec.Name);
if (Pos('A',sFileName)=1) then
listbox1.items.Add(sMainPath+SearchRec.Name);
if (SearchRec.Attr and faDirectory)=faDirectory then
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
GetAllFiles(sMainPath+SearchRec.Name);
end;
end;end;