delphi 查找指定目录，指定扩展名的所有文件名

关注

原创最新推荐文章于 2026-08-20 15:56:36 发布 5.3k 阅读 AI 写同款· GEO 优化 ›

python监测点击位置_节点地震监测数据分析Python编程实践与源代码本文介绍了用Python语言编写的一段节点地震监测数据分析代码，其中用到SEG-Y格式地震数据的输入和分析、地震节点位置和定位误差分析，以及相关图件绘制等功能。文章最后列出了分析程序的源代码。一、野外数据采集2019年11月21日我们在江苏镇江句容进行了地震节点仪野外数据采集试验，以获得不同仪器、不同检波器的性能对比结果，也为数据分析方法研究提供参考测试数据。数据采集采用了被动观测方式，... 阅读详情

function GetDirFileName(Dir,ExtName: string): TStringList;
var
  FSearchRec: TSearchRec;
  FileList: TStringList;
  FindResult: Integer;
begin
  if Dir[length(Dir)] <> '\' then
    Dir := Dir + '\';
  FileList := TStringList.Create;
  FindResult := FindFirst(Dir + '*.'+ExtName, faAnyFile, FSearchRec); //
  try
    while FindResult = 0 do
    begin
      if (FSearchRec.name <> '.') and (FSearchRec.name <> '..') then
        FileList.Add(LowerCase(Dir + FSearchRec.Name));
      FindResult := FindNext(FSearchRec);
    end;
  finally
    SysUtils.FindClose(FSearchRec);
    //FindClose(FSearchRec);
    dir := '';
  end;
  Result := FileList;
end;

收录于