DELPHI7下SUPPEROBJECT遍历子对象的name和value
var ite: TSuperAvlIterator;
while ite.MoveNext do
begin
if ite.Current.Name = 'table' then
begin
tablename := ite.Current.Value.AsString; // 取表名
end
else
begin
if lname = '' then
lname := ite.Current.Name
else
lname := lname + ',' + ite.Current.Name;
if lvalue = '' then
lvalue := QuotedStr(ite.Current.Value.AsString)
else
lvalue := lvalue + ',' + _getValue(ite.Current.Value);
end;
end;