请问DELPHI如何取出文件夹下所有文件的名字和文件数啊？

Question

如题！！！
跪求解答

Answer 1

看delph的帮助，查FindNext，遍历文件夹，然后累计数量

Answer 2

function  ListFiles(Dir: String):TStrings;
var
  FSearchRec:   TSearchRec;
  FileList:     TStrings;
  FindResult:   Integer;
begin
    if  Dir[length(Dir)]<>'\'  then Dir:=Dir+'\';
    FileList  :=TStringList.Create;
    FindResult:=FindFirst(Dir+'*.csv',faAnyFile+faDirectory,FSearchRec);
    try
       while   FindResult = 0   do
            begin
                FileList.Add(LowerCase(Dir+FSearchRec.Name));
                FindResult:=FindNext(FSearchRec);
            end;
    finally
            FindClose(FSearchRec);
    end;
    ListFiles:=FileList;
end;

Answer 3

function ListFiles(Dir: String):TStrings;
var
  FSearchRec: TSearchRec;
  FileList: TStrings;
  FindResult: Integer;
begin
  if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
  FileList :=TStringList.Create;
  FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
  while FindResult = 0 do
  begin
    if ((FSearchRec.Attr and faDirectory) = 0) then    //文件
     begin
        FileList.Add('文件:'+LowerCase(Dir+FSearchRec.Name));
     end;
    if ((FSearchRec.Attr and faDirectory) <> 0) then
    begin
    if ((FSearchRec.Name<> '.') and (FSearchRec.Name <> '..')) then    //文件夹
     begin
           ListFiles(dir+FileRec.Name);
    end;
    end;
     FindResult:=FindNext(FSearchRec);
  end;
  FindClose(FSearchRec); 
  ListFiles:=FileList;
end;