怎样让服务端反馈回来的用户列表显示在客户端的listbox控件上。(0分)

  • 主题发起人 主题发起人 龙卷风241
  • 开始时间 开始时间

龙卷风241

Unregistered / Unconfirmed
GUEST, unregistred user!
我想显示
user1
user2
user3
结果是 user1user3user4
 

listbox.items.add('user1');
listbox.items.add('user2');
listbox.items.add('user3');

 
问题解决,但很笨。
服务端是Socket.SendText(user1#user2#user3
)
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var s,s1:string;
i:integer;
begin
ListBox1.Items.Clear;
s:=ClientSocket1.Socket.ReceiveText;
for i:=1 to Length(s)do
if s<>'#' then
begin
s1:=s1+s;
end
else
begin
ListBox1.Items.Append(s1);
s1:='';
end;
 
接受答案了.
 
后退
顶部