一个在线人数计算的问题！

Question

我用clientsocket,serversocket编了一个聊天程序，我希望再有人增加或者退出时能在服务器端能看到在线人数，所以我在服务器端的程序如下：
procedure tform1.UpdateState;
begin
  statusbar1.SimpleText:='在线人数:'+inttostr(serversocket1.Socket.ActiveConnections);
end;
然后在
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin 
 updatestate;
end;
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  updatestate;
end;
但是,如果增加人数,显示的在线人数就是正确的,如果人数减少,他是每减少两个人,
在线人数才减少1.我不知道问题出在那里,请各位大侠帮忙!谢谢,解决了马上送分!

Answer 1

是不是Disconnect事件是在真正断开前被触发的呢，也就是触发Disconnect事件时，还没有完成断开；或者有可能Disconnect事件被触发时serversocket1.Socket.ActiveConnections数还来不及更新，
建议你换一种方法：你可以自己做一个计数，Disconnect后自己来减一！