Delphi 取目录下指定文件到列表

本文整理自网络，侵删。

 
procedure  TForm1.searchfile(Astrs:TStrings;path:string);//注意,path后面要有'\';
var  //取目录下的SQL文件到列表Astrs
  SearchRec:TSearchRec;
  found:integer;
begin
  Astrs.Clear;
  found:=FindFirst(path+'*.sql',faAnyFile,SearchRec);
  while found=0 do
  begin
    if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and
       (SearchRec.Attr<>faDirectory) then
    begin
       //ListBox1.Add(SearchRec.Name);
       Astrs.Append(path+SearchRec.Name);
    end;
    found:=FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;
 

相关阅读 >>

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

Delphi图像细化处理

Delphi 循环 low high 用法

Delphi加载驱动的代码演示

Delphi判断文本文件的编码格式

Delphi 中判断windows系统是否是64位系统

Delphi 获取当前进程的父进程

Delphi版的base64转换函数（修改版）

Delphi 获取系统启动文件夹路径

Delphi richedit文字背景色的处理

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 取目录下指定文件到列表