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 锁住listview防止刷新

Delphi基于高斯-拉普拉斯算子的图像边缘检测

删除Delphi组件tstringlist中的重复项目

Delphi tthread线程同步

Delphi从excel读取数据存入数据库demo

Delphi [android]获取屏幕的物理分辨率

Delphi 获取窗体坐标触发事件

Delphi 获取unigui 控件id 及获取html值

Delphi之数组

Delphi写文本文件

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

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