请问如何把一个文件夹中的文件名读到StringList当中去,谢谢了!(30分)

请问如何把一个文件夹中的文件名读到StringList当中去,谢谢了!

你可以从目录树控件中加入！或是一个控件，对整个目录搜索的控件！

可以用win31中的filelistbox控件，读出指定目录的文件
var
MyList: TStringList;
i: Integer;
begin
MyList := TStringList.Create;
for i:=0 to filelistbox1.Items.Count-1 do
begin
mylist.add(filelistbox1.Items);
end;
end;

或者我想压缩一个文件夹,有什么好的控件吗?

procedure findfilename(direc:string);
var SearchRec: TSearchRec;
list:tstringlist;
retval:integer;
begin
list:=tstringlist.create;
RetVal := FindFirst('c:/temp/*.*', faAnyFile, SearchRec);
try
while RetVal = 0 do
begin
if (searchrec.name<>'.') and (searchrec.name<>'..') then
list.add(searchrec.name);
RetVal := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
end;

接受答案了.