delphi 取当前目录下所有文件夹名和文件名

本文整理自网络，侵删。

 
procedure SearchLangFiles(const Dir: string; List: TStrings; IsDir: Boolean);
var
  SearchRec: TSearchRec;
  F: Integer;
begin
  F := FindFirst(IncludeTrailingPathDelimiter(Dir) + '*.*', faAnyFile, SearchRec);
  List.Clear;
  while F = 0 do
  begin
    if (SearchRec.Name <> '.') and (SearchRec.name <> '..') then
    begin
      if not IsDir and (SearchRec.Attr and faDirectory <> faDirectory) then
        List.Add(ExtractFileName(SearchRec.Name))
      else if IsDir and (SearchRec.Attr and faDirectory = faDirectory) then
        List.Add(ExtractFileName(SearchRec.Name));
    end;
    F := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
SearchLangFiles('d:\',memo1.Lines,false); //false 取当前目录下所有文件名； True 取当前目录下所有文件夹名；
end;
 

相关阅读 >>

Delphi 单击android上的web浏览器链接以启动Delphi应用程序

Delphi复制粘贴操作

Delphi初级教程之Delphi断点调试

Delphi 取16进制字符的10进制的integer值

Delphi 创建一个大小不可改变的窗体,通用模板

Delphi 系统服务状态获取管理员用户名

Delphi 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist

Delphi 检测是否包含字符

Delphi 获得用android应用程序触摸到的位置(坐标)的方法

Delphi 10 seattle plus 新特性――system.json.builders

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

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