delphi获取目录下所有文件名[delphi]

关注

转载最新推荐文章于 2026-06-25 15:40:24 发布 2k 阅读 AI 写同款· GEO 优化 ›

从菜鸟到高手：我的Abaqus壳单元S4R、S3R、S8R选择心路历程第一次打开Abaqus的单元库时，我被琳琅满目的壳单元类型晃花了眼。S4R、S3R、S8R、STRI65、S9R5...这些看似随意的字母数字组合，背后却隐藏着影响仿真精度的关键密码。作为一名从土木工程转行到汽车结构仿真的工程师，我花了三年时间才真正理解如何根据问题特性精准选择壳单元。这段学习历程充满试错与顿悟，今天就用几个关键案例，分享我的壳单元选择方法论。阅读详情

procedure searchfile(path:string);//细致,path背面要有'\';
   var
       SearchRec:TSearchRec;
       found:integer;
   begin
       found:=FindFirst(path+'*.*',faAnyFile,SearchRec);
       while    found=0    do
         begin
             if (SearchRec.Name<>'.') and (SearchRec.Name<>'..')
                   and    (SearchRec.Attr<>faDirectory)    then
                 ListBox1.Add(SearchRec.Name);
             found:=FindNext(SearchRec);
         end;
       FindClose(SearchRec);
   end;

//===============================================================

上面一个只获取当前目录下全部文件,要是要获取该目录下的子目录的文件,看下面，100脚本
   procedure SearchFile(path:string);
   var
       SearchRec:TSearchRec;
       found:integer;
   begin
       found:=FindFirst(path+'*.*',faAanyFile,SearchRec);
       while    found=0    do
         begin
           if (SearchRec.Name<>'.') and (SearchRec.name<>'..) and
                 (SearchRec.Name=faDirectory)    then
               SearchFile(SearchRec.Name+'\')
           else
               LisBox1.Add(SearchRec.Name);
           found:=FindNext(SearchREc);
       end;
       FindClose(SearchRec);
   end;
//===================================================================