type
TStringListarr=array of TStringList;
Var
B:TStringListarr;
j:integer;
begin
SetLength(B, 4);
For j:=0 to 3 do
Begin
B[j]:=TStringList.Create;
End;
end;[@more@]
TStringListarr=array of TStringList;
Var
B:TStringListarr;
j:integer;
begin
SetLength(B, 4);
For j:=0 to 3 do
Begin
B[j]:=TStringList.Create;
End;
end;[@more@]
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/7393650/viewspace-899527/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/7393650/viewspace-899527/