DELPHI7下SUPPEROBJECT遍历子对象的name和value

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;