在学习使用delphi进行网络时，书上忽略的一点东西

今天在进行对    TClientSocket;: TServerSocket; 的学习编写聊天软件的过程里，发现一个非常郁闷的问题，当在服务器端接收数据的时候，进行数据转发的时候，总是无法发送到客户端。

    self.Memo1.Lines.Add(socket.ReceiveText);
    for i:= 1 to num do
       self.ServerSocket1.Socket.Connections[i - 1].SendText(socket.ReceiveText);

在上面的代码里，一旦服务器接受到一个客户端发送的信息后，就先把字符串加入memo里，然后再对其它的客户端发送消息。但是就是这里，服务器能够加入字符串，但其它的客户端不行。如果把 self.Memo1.Lines.Add(socket.ReceiveText);删除的话，又只能有一个客户端收到发送的信息。

经过多方努力，查看变量速度的变化过程，终于清楚一个问题。

当通过ReceiveText操作后，系统会把socket里缓冲区清除，也就是说如果再后面的操作要再次读取缓冲区的话，返回的是空值，也就是后面无法发送。所以把代码稍加改动，增加一个临时变量就可以解决问题了。

     s := socket.ReceiveText;
    self.Memo1.Lines.Add(s);
    for i:= 1 to num do
       self.ServerSocket1.Socket.Connections[i - 1].SendText(s);