[我刚学]请问个很菜的问题

Question

请问怎样从一个目录中读出文件名呢然后把他们给CheckListBox谢谢大家

Answer 1

var
  FileList: TStrings;
  iFindResult: Integer;
  SearchRec: TSearchRec;
begin
  FileList := TStringList.Create;
  iFindResult := FindFirst('文件夹\*.*', faAnyFile, SearchRec);
  while iFindResult = 0 do
  begin
    FileList.Add(SearchRec.Name);
    iFindResult := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
  ... ...
  FileList.Free;
end;

Answer 2

>>  findfirst
    findnext