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 创建console-控制台应用

Delphi apihook

Delphi中quotedstr介绍及使用

Delphi windows xp下屏蔽ctrl_alt_del键的方法

在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

Delphi webservice 中采用 tsoapattachment 传输文件

Delphi strtohexstr 字符串转换hex

Delphi 根据分割符只取最后的值

crc8unt.pas

Delphi 获取闪盘列表

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

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