请问 关于 FindFirst的问题 我想查一种以上的后缀文件的时侯该怎么写？ （在线等待）

[xkfxd]

同上

[STYun]

勤快一点点啦，分几次查找，反正是几个循环的问题，没有什么大不了的

[xkfxd]

那我还问个什么劲？ 有没有直接点的？

要是多个几种不得累死？

[WWWWA]

if ((sr.Name<>'.') and (sr.Name<>'..')) or (extractfileext(sr.name)=
你的类型) then do something

[STYun]

多一点还可以建立一个后缀的TStringList,
从STRINGLIST的第一个查找到最后一个就完了吗，也就是个2层的循环，办法是人想的，怕麻烦还得了？

[xkfxd]

WWWWA(aaaa) 说的还不错 只好先这么办了

[fhuibo]

up

[foilsman]

//以下是删除g:\下的 *.txt和 *.bmp文件
var
sr : array[0..1] of TSearchRec;
strFile : array[0..1] of String;
begin
if (FindFirst('g:\*.txt', faAnyFile, sr[0]) and FindFirst('g:\*.bmp', faAnyFile, sr[1])) = 0 then
begin
repeat
strFile[0] := 'g:\' + sr[0].Name;
strFile[1] := 'g:\' + sr[1].Name;
DeleteFile(pChar(strFile[0]));
DeleteFile(pChar(strFile[1]));
Until
FindNext(sr[0]) <> 0 and FindNext(sr[1]);

FindClose(sr[0]);
FindClose(sr[1]);
end;
end;

[WWWWA]

if ((sr.Name<>'.') and (sr.Name<>'..')) or (extractfileext(sr.name)=
.你的类型) then do something

[xkfxd]

谢各位了 先结了吧 凑合用