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

[qantgh]

请问怎样从一个目录中读出文件名呢

然后把他们给CheckListBox

谢谢大家

[我和我的蓝天白云]

findfirst
findnext

[zzlingaaa]

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;

[todouwang]

用api吧

[Larry1030]

>> findfirst
findnext

[qantgh]

谢谢大家