air£¬java£¬DelphiµÝ¹é»ñµÃÎļþ¼Ð¼°Æä×ÓÎļþÐÅÏ¢

°ÑÒÔÇ°×ö¹ýµÄÏîÄ¿×ܽáһϣ¡²Î¼Ó¹¤×÷ÒÔÀ´Ò»¹²ÓÃÈýÖÖ²»Í¬ÓïÑÔʵÏÖÁË»ñµÃÎļþ¼Ð¼°Æä×ÓÎļþÐÅÏ¢¡£ÎªÁË·½±ãÒÔºóʹÓÃ×ܽáÒ»ÏÂ
airʵÏÖ£º 
private function getfile(filelist:File):Array{  
  var list:Array = filelist.getDirectoryListing();
  var count:uint=list.length;
  for (var i:uint = 0; i < count; i++) {
   if(list[i].isDirectory) {
    var listtemp:Array = getfile(list[i]);    
    list = list.concat(listtemp);
   }else{
    continue;
   }     
  }
  return list;
 }
°Ñ×îºóµÄÎļþÐÅÏ¢·Åµ½arrayÀïÃæ
delphiʵÏÖ£º
procedure Tallmark.GetDirectoryFiles(const ADirectory: string;
  fileList: TStrings);
var
  Dir: TSearchRec;
  Ret: integer;
  Path: string;
begin
  if fileList <> nil then
  begin
    Path := ExtractFilePath(ADirectory);
    Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);
    if Ret <> NO_ERROR then exit;
    try
      while ret = NO_ERROR do
      begin
        if Dir.attr and faDirectory = 0 then fileList.Add(path + Dir.Name);
        if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> '.') then
        begin
          GetDirectoryFiles(Path + Dir.Name + '\*.dbf', fileList);
        end;
        Ret := Sysutils.FindNext(Dir);
      end;
    finally
      Sysutils.FindClose(Dir);
    end;
  end;
end;
°ÑËùÓеÄÎļþÐÅÏ¢·Åµ½Ò»¸öTStringsÀïÃæ