参数 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;