真是抱歉又有問題發問 其實這個問題是之前有問過,但都沒有一個很好的方法,小弟想了半天還是想不到好方法.問題大致上是這樣的 我有一個

這是寫在TServerSocket之下的，了解原理之後， 你再自己改到使用的元件上。    之前的文章有提到，要帶一個RemotePort才能正確分辨出是那個Client Connection， 只要抓每個list中的RemotePort，拿出來比對，就會不出錯。    在欄位最後都加一個":"+RemoteRort如綠色所示。  

     void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
     ListBox1->Items->Add(Socket->RemoteAddress ":" Socket->RemotePort);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
     int tmpPort;
     for (int i=0;iCount;i  )
     {
          tmpPort=ListBox1->Items->Strings[i].SubString(ListBox1->Items->Strings[i].Pos(":") 1,
                            ListBox1->Items->Strings[i].Length()-ListBox1->Items->Strings[i].Pos(":")).ToInt();              if (tmpPort==Socket->RemotePort)
          {
              ListBox1->Items->Delete(i);
              i--;
          }
     }
}    

自己寫個小程式來試試看 國泰平安

謝謝版主,我改寫寫出來了,真是太感激了