procedure TForm1.idtcpserver1Execute(AThread: TIdPeerThread);
var
msg:string;
begin
msg:=Athread.Connection.ReadLn;
if pos('$',msg)=1 then
begin
delete(msg,1,1);
listbox1.Items.Text:=msg; //为什么只能接收listbox2的第一行?
end;
end;
var
msg:string;
begin
msg:=Athread.Connection.ReadLn;
if pos('$',msg)=1 then
begin
delete(msg,1,1);
listbox1.Items.Text:=msg; //为什么只能接收listbox2的第一行?
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货