16,748
社区成员
发帖
与我相关
我的任务
分享
var
vList1: Tstrings;
vList2: Tstrings;
begin
vList1 := TStringList.create;
vList2 := TStringList.create;
try
vList1.add('2'); vlist2.add('3');
...
finally
vList2.free;
vList1.free;
end;