[ederfcr]

Hola buen día.

Resuelto el problema, asi quedo mi función:

Código Delphi [-]
function TDBClass.CantCed(Connect: TADOConnection; var Cedula: string): Integer;
var
  ads: TADODataSet;
begin
  ads := TADODataSet.Create(nil);
  try
    ads.Connection  := Connect;
    ads.CursorType := ctStatic;
    ads.LockType := ltOptimistic;
    ads.CommandText :='SELECT COUNT(*) AS CANTREG FROM plancli WHERE cc=PARAM';
    ads.Parameters.ParamByName('PARAM').Value := Cedula;
    ads.Open;
    CantCed := ads.FieldByName('CANTREG').Value;
  finally
    ads.Close;
    ads.Free;
  end;
end;

Quedo superbien y corriendo. Mil Gracias.


EderFCR