当前位置: 首页 > 技术文档 > 正文
avatar

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

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

procedure TForm1.Button1Click(Sender: TObject);
var
found:integer;
keyword,s,dirstr:string;
rc:TSearchRec;
begin
  memo1.Clear;
  dirstr:='C:\1\';//任意目录
  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;
本文固定链接: https://blog.yanhualou.com/jishu/59.html | 烟花楼博客
标签:

delphi 获取指定文件夹下所有文件名:等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter