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