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;
 

相关阅读 >>

剪贴板单元 clipboards.pas

Delphi 动态创建一个ipedit控件

Delphi 非主窗体(即子窗体)在任务栏显示按钮

Delphi 字符串中加入换行符slinebreak

Delphi遍历进程并获取进程路径

Delphi代码获取网卡物理地址三种方法

Delphi 通过读取注册表信息获取桌面路径

Delphi firedac fdconnection 事务

Delphi 限制窗体大小的最大值与最小值

Delphi 获取所有磁盘盘符列表

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

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