很菜的问题！Winsock有关！

Question

一个ServerSocket,一个listBox控件！~
我想在客户端，连接到服务器端的时候，把客户端ip或者地址添加到ListBox1里面！~
当客户端断开时，删除该ip地址！procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);//这里是添加
var
  i: integer;
begin
  ListBox1.Clear;
  for i := 0 to ServerSocket1.Socket.ActiveConnections -1 do
  begin
    with ServerSocket1.Socket.Connections[i] do
    begin
      ListBox1.Items.Add(RemoteAddress + '(' + remoteHost +')');
    end;
  end;
end;删除咋写？
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ListBox1.Clear;
  ListBox1.Items.delete();end;

Answer 1

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var 
  i:Integer;
begin
  for i:=0 to ListBox1.Items.Count do
  begin
     if 该节点信息和Socket一致 Then  //你的节点信息我不太清楚
     begin
        ListBox1.Items.delete(i);
        break;
     end
  end;
end;
如果我的回答对你有用，我不要分，如果你愿意请到下面这帖送个祝福给我女朋友吧！
http://expert.csdn.net/Expert/topic/1897/1897923.xml?temp=.300213