s1 :^TStringS;
s2 :TStringS;...
s2 := TStringList.Create;
New(s1);
s1^ := TStringList.Create;
s2.AddObject('',s1^);{该句运行时,提示abstract error}
这是为什么,有办法解决吗?
s2 :TStringS;...
s2 := TStringList.Create;
New(s1);
s1^ := TStringList.Create;
s2.AddObject('',s1^);{该句运行时,提示abstract error}
这是为什么,有办法解决吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货