怎样获得一个目录下，所有相同后缀的文件名？

Question

如题

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
var
  Search:TSearchRec;
  iCount:integer;
  FilePath:string;
begin
  FilePath:='F:\mp3\经典\';
  Try
    iCount:=FindFirst(FilePath +'*.*',faAnyFile,Search);
    while iCount =0 do
    begin
      if (Search.name<>'.')and(Search.name<>'..') then
      begin
        if ExtractFileExt(Search.Name)='.mp3' then //查出当前目录下所有*.mp3
          Memo1.Lines.Add(Search.Name);
      end;
      iCount:=FindNext(Search)
    end;
  finally
    FindClose(Search);
  end;
end;

Answer 2

遍历目录，cAkk的，cAkk别气哦！
一个函数,结果用参数foundresult返回:
function SearchFile(mainpath:string;filename:string; var foundresult:TStrings):Boolean;
var
 i:integer;
 Found:Boolean;
 subdir1:TStrings;
 searchRec:TsearchRec;
begin
  if right(mainpath,1)<>'\' then mainpath:=mainpath+'\';
  found:=false;
  if Trim(filename)<>'' then
  begin
    subdir1:=TStringList.Create;
    if (FindFirst(mainpath+'*.*', faDirectory,SearchRec)=0) then
    begin
      if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name);
      while (FindNext(SearchRec) = 0) do
      begin
        if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name);
      end;
  end;
  FindClose(SearchRec);
  //查找当前目录。
  if (FindFirst(mainpath+'*.*', faAnyFile-faDirectory, SearchRec)=0)  then
  begin
    foundresult.Add(mainpath+SearchRec.Name);
    while (FindNext(SearchRec) = 0) do
    begin
      foundresult.Add(mainpath+SearchRec.Name);
    end;
  end;
  FindClose(SearchRec);
  for i:=0 to subdir1.Count-1 do
    found:=Searchfile(mainpath+subdir1.Strings[i]+
'\',Filename,foundresult)or found;
  subdir1.Free;
  end;
  result:=found;
end;不好意思啊，落下一个函数
function IsValidDir(SearchRec:TSearchRec):Boolean;
begin
if (SearchRec.Attr=16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..') then
Result:=True
else
Result:=False;
end;