么意思博客

找了好会儿，才找到个能用的，现在我分享给大家！

找了好会儿，才找到个能用的，现在我分享给大家！

procedure TForm1.Button1Click(Sender: TObject);
var
found:integer;
keyword,s,dirstr:string;
rc:TSearchRec;
begin
  memo1.Clear;
  dirstr:='C:\';//任意目录
  keyword:='*.Txt';//关键字 指定.txt后缀
  s:=dirstr+Trim(keyword);
  found:=findfirst(s,faAnyFile,rc);
while found=0 do
begin
 if (rc.Attr and faDirectory) <> 0 then     // 判断是目录跳过
   found:=FindNext(rc)
 else
 begin
   memo1.Lines.Add(ExtractFileName(rc.Name));
   found:=FindNext(rc);
 end
end;
end;