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;

推荐分享