為什麼每當函數遞迴完在返回時就無法再繼續作遞迴動作 我要如何做才能達到類似 (TSearchRec)(FindNext) 的方法     

//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  FtpFileFind("/home/renth/12345");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FtpFileFind(AnsiString DIR)
{
  AnsiString DR=DIR;
  if(DR.SubString(DR.Length(),1) != "/")DR=DR "/";      IdFTP1->ChangeDir(DR);
  IdFTP1->TransferType=ftBinary;                                              
  TStringList *SSL = new TStringList();
  IdFTP1->List(SSL,"",true);                                                        //if(IdFTP1->ListResult->Count >= 1)
  //{         for(int i=0;i < IdFTP1->ListResult->Count;i  )
     {
        AnsiString X = IdFTP1->ListResult->Strings[i];                            
        if(X.SubString(1,1) == 'd')                                               
        {
           SSDL = ListView1->Items->Add();
           SSDL->Caption=X;
           SSDL->SubItems->Add(IdFTP1->RetrieveCurrentDir()  "/"  GetNameLine(X)); 
           FtpFileFind(DR   GetNameLine(X));
        }
        else if(X.SubString(1,1) == '-')
        {
           SSDL = ListView1->Items->Add();
           SSDL->Caption=X;
           SSDL->SubItems->Add(IdFTP1->RetrieveCurrentDir()  "/"  GetNameLine(X)); 
        }
     }      //}
  //delete SSL;    }
//---------------------------------------------------------------------------
AnsiString __fastcall TForm1::GetNameLine(AnsiString LX)
{
//===========================================================================
//  這個函數是計算一筆檔案清單
//  取得這筆檔案的(資料夾名稱)或(檔案名稱)
//===========================================================================
  for(int M=0;M <= 7;M  )
  {
     LX.Delete(1,LX.Pos(' '));
     while(LX[1] == ' ')
     {
        LX.Delete(1,1);
     }
  }
  return LX;
}
//---------------------------------------------------------------------------

沒有人會這種 FTP 函數遞迴檔案方法嗎 各位前輩幫幫我看那裡錯了 感激不盡  

應該不是沒人要幫你... 我想可能是版本的問題，因為小弟之前想 > 國泰平安

終於有人回應了 gemi0305 前輩 我是安裝這個版本 Indy V9.00.14

忘了說明一點 當要執行測試時請在 exe 下執行 不能在 IDE 環境下執行 我也不知道為什麼會這樣

這篇是最近從borland的討論區看到的， 他是有提到說，可以用List()和Get()來做遞迴~ 但因為我也沒實際去試過，我是以一個外行人的角度來看~ 不知對你有沒有什麼幫助~ 還是發這篇文章的就是你本人...呵 "> > > > ( > > > > > 反而找了一堆無關的問題出來呵< > 不要見怪~ 國泰平安

感謝 gemi0305 對小弟的幫忙 那篇英文不是我寫的因為我沒那麼利害 ^^ 我是使用 Indy V9.00.14版的沒錯但我安裝後直接使用就以有 ListResult 的類別 它應該是記錄 List 的檔案清單 我也不知詳細用法 說實在我去找書找網站 indy 實在資訊蠻少的國外也一樣 真希望國內有人趕快出些關於 indy 的書籍 因為我覺得 indy 元件很多也都蠻實用的 關於製作像CuteFTP這樣軟體我是還沒那能力 我只是希望要作到類似像檔案搜尋那樣功能 這兩天我已找到一方法可行 我整理一下在 post 到版上讓前輩們幫我看是否程式可最佳化 再謝謝 gemi0305 前輩幫忙