怎么得到一个文件夹下面的所有文件名？

Question

得到一个文件夹下面的所有文件名称，把它保存在StringList里面。
请问怎么实现？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  vSearchRec: TSearchRec;
  vStringList: TStringList;
begin
  vStringList := TStringList.Create;
  if FindFirst('c:\temp\*.*', faAnyFile and not faDirectory, vSearchRec) = 0 then
  begin
    repeat
      vStringList.Add(vSearchRec.Name);
    until FindNext(vSearchRec) <> 0;
    FindClose(vSearchRec);
  end;
  ShowMessage(vStringList.Text);
  vStringList.Free;
end;

Answer 2

有个开源的控件：FindFile 用如下两行语句即可：
  FindFile1.find('D:\','*.*');
  Memo1.Lines:=FindFile1.FoundList;