Delphi 获取当前目录下所有文件名3

本文整理自网络，侵删。

 
procedure TForm1.GetDirFileList(listcss: tstrings);
var
  lSearchRec: TSearchRec;
  lFind: integer;
  lPath: string;
  dirName : string;
begin
  lPath := ExtractFileDir(ParamStr(0))+'\';
  if DirectoryExists(lPath) then
  begin
    lFind := FindFirst(lPath+'*.*',faAnyFile, lSearchRec);  //这里可以设置，获取文件类型
    listcss.Clear;
    while lFind = 0 do
    begin
      dirName:=lSearchRec.Name;
      if (dirName <> '.')
      and (dirName <> '..')
      and (FileExists(lPath+dirName)) then
      listcss.Add(dirName);
      lFind := FindNext(lSearchRec);
    end;
  end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

GetDirFileList(Memo1.Lines);

end;
 

相关阅读 >>

Delphi 优化mdb文件

Delphi 调用相应程序打开网址

Delphi tms web core 实现下载

Delphi 监控系统文件操作

Delphi 安卓app的https访问权限

设定Delphi环境选项

Delphi 内存补丁

Delphi 正则表达式起步

Delphi 谷歌api文本转换语音mp3文件

Delphi function 与 procedure

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

转载请注明出处：木庄网络博客 » Delphi 获取当前目录下所有文件名3