procedure TForm1.Button1Click(Sender: TObject);
var
K, X: Integer;
myNMHttp: array of TNMHttp;
begin
X := StrToIntDef(Edit1.Text, 0);
SetLength(mYNMHttp, X); //动态数组要分配资源
for K := 0 to X - 1 do begin
mynmhttp[k] := TNMHttp.Create(Self);
end;
end;
var
K, X: Integer;
myNMHttp: array of TNMHttp;
begin
X := StrToIntDef(Edit1.Text, 0);
SetLength(mYNMHttp, X); //动态数组要分配资源
for K := 0 to X - 1 do begin
mynmhttp[k] := TNMHttp.Create(Self);
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货