主要是用于备忘吧，XSuperObject的使用相对比较简单，而且可以跨平台。

var
 X: ISuperObject;

I:integer;

begin

 X:=SO();

 X.I['Result'] := 1;
      X.A['UserRight'].Clear;
      while not qry1.Eof do
      begin
        with X.A['UserRight'].O[I] do
        begin
          S['FunCode'] := qry1.FieldByName('FunCode').AsString;
          S['FunName'] :=qry1. FieldByName('FunName').AsString;
          S['IsEnable'] := qry1.FieldByName('IsEnable').AsString;
        end;
        inc(I);
        qry1.next;
      end;
end;