delphi里怎么把指定文件夹内的所有文件名输出出来（重不重复无所谓，类型也无所谓）

[qq_25288663]

这个代码怎么写,？？？？？

[CCC的]

procedure  searchfile(path:string);
   var
       SearchRec:TSearchRec;
       found:integer;
       listbox1:string;
   begin   
       found:=FindFirst(path+'*.*',faAnyFile,SearchRec);   
       while    found=0    do   
         begin   
             if (SearchRec.Name<>'.')  and (SearchRec.Name<>'..')
                   and    (SearchRec.Attr<>faDirectory)    then
                 ListBox1.Add(SearchRec.Name);
             found:=FindNext(SearchRec);
         end;
       FindClose(SearchRec);
   end;

[lyhoo163]

function searchfile(path:string):TStringList;
var SearchRec:TSearchRec;
    found:integer;
    list:TStringList;
begin
  list:=TStringList.Create;
  found:=FindFirst(path+'\*.*',faAnyFile,SearchRec);
  while  found=0 do
  begin
    if (SearchRec.Name<>'.')  and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDirectory)
      then List.Add(SearchRec.Name);
    found:=FindNext(SearchRec);
  end;
  FindClose(SearchRec);
  searchfile:=list;
end;

楼上有错误，修改后，编译并执行。

[lyhoo163]

Memo1.Lines:=searchfile(‘C:\windows’); 执行代码。