参数 out

function outtest(out jo: ISuperObject; out s: string):Boolean;

begin

//进入函数时 jo =nil ErrStr = ''

Result := True;

jo := SA([]);
s := 's';

end;

var

  json: isuperobject;

  Errstr: string;

begin

  json := SO();

  ErrStr := 'error';

  outtest(json, ErrStr);

  ShowMessage(json.AsString + sLineBreak + ErrStr);

end;