如何将目录中的所有文件存放到一个数组中？？？

Question

请高手帮忙呀！！！

Answer 1

先查找出来，查找的代码类似于
用一个循环，我这有个把文件夹里的文件全部加到树上的例子，你自己改改吧，
var
  SearchRec : TSearchRec;
  ItemTemp : TTreeNode;
begin
  with ATreeView.Items do
  try
    BeginUpdate;
    if ADirectory[Length(ADirectory)] <> '\' then
      ADirectory := ADirectory +'\';
    if FindFirst(ADirectory + '*.*', faDirectory, SearchRec) = 0 then
    begin
      repeat
      if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
      begin
        if (SearchRec.Attr and faDirectory > 0) then
          ARoot := AddChild(ARoot, SearchRec.Name);
        ItemTemp := ARoot.Parent;
        DirToTreeView(ATreeView, ADirectory + SearchRec.Name, ARoot, AIncludeFiles);
        ARoot := ItemTemp;
      end
      else if AIncludeFiles then
        if SearchRec.Name[1] <> '.' then
          AddChild(ARoot, SearchRec.Name);
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
    end;
  finally
    EndUpdate;
  end;
end;