比如如下代码:
var socket_t:array[1..100] of Tclientsocket;procedure Tfrmsetnet.Button1Click(Sender: TObject);
begin
socket_t[i]:=Tclientsocket.Create(nil);
socket_t[i].Address:=MaskEdit1.Text;
socket_t[i].Port:=strtoint(Edit1.text);
socket_t[i].Active:=true;
end;
动态创建了一个Tclientsocket的对象,该如何编写其onread事件处理过程?是否要声明?
var socket_t:array[1..100] of Tclientsocket;procedure Tfrmsetnet.Button1Click(Sender: TObject);
begin
socket_t[i]:=Tclientsocket.Create(nil);
socket_t[i].Address:=MaskEdit1.Text;
socket_t[i].Port:=strtoint(Edit1.text);
socket_t[i].Active:=true;
end;
动态创建了一个Tclientsocket的对象,该如何编写其onread事件处理过程?是否要声明?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货