字符串处理 ( 积分: 50 )

程序是通过clientsocket接收服务器字符串数据，并且服务器不但向客户端发送数据。所接收的字符串中已经含有换行符。
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
sReceived:string;
begin
sReceived:=clientsocket1.socket.ReceiveText;
s:=s+sReceived;
memo1.Clear;
memo1.Lines.Append(s);
end;
这段代码可以将字符串还原规则的格式。其中S为全局变量，保存接收的全部数据。由于每触发ClientSocket1 OnRead就要memo1.Clear一次，造成S越来越大时（超过满屏字符时），屏幕会闪屏，不流畅。

我也试过
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Append(clientsocket1.socket.ReceiveText);
end;
处理，但出来Memo显示很不规则。

请问对于处理接收整合后可以才规则显示的字符串，有什么高见。

程序是通过clientsocket接收服务器字符串数据，并且服务器不但向客户端发送数据。所接收的字符串中已经含有换行符。
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
sReceived:string;
begin
sReceived:=clientsocket1.socket.ReceiveText;
s:=s+sReceived;
memo1.Clear;
memo1.Lines.Append(s);
end;
这段代码可以将字符串还原规则的格式。其中S为全局变量，保存接收的全部数据。由于每触发ClientSocket1 OnRead就要memo1.Clear一次，造成S越来越大时（超过满屏字符时），屏幕会闪屏，不流畅。

我也试过
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Append(clientsocket1.socket.ReceiveText);
end;
处理，但出来Memo显示很不规则。

请问对于处理接收整合后可以才规则显示的字符串，有什么高见。

不用答了,我已经自己解决了.能给自己分吗?

没有要我要！
：）

用SelText解决的吧？