老板，怎么uADOLib.pas单元，自己修改的代码不执行啊 比如：这个过程，我改成这样 function GetValues(const aConnection : OleVariant; const aSQLCommand : string; Arguments : array of const) : OleVariant; var rs : _Recordset; i : integer; begin try Result := ''; OpenFireHoseRecordset(aConnection, aSQLCommand, Arguments, rs, TRUE); if (rs.RecordCount >0) then begin if (rs.Fields.Count>1) then begin result := VarArrayCreate([0, rs.Fields.Count-1], varVariant); for i := 0 to (rs.Fields.Count-1) do result[i] := rs.Fields[i].Value; end else Result := rs.Fields[0].Value; end; finally rs.Close; rs := NIL; end; end;
盒子资源分类大树
