Fieldbyname ADOTable

[defcon1_es]

Prueba con esto:

Código Delphi [-]
Function CantEjerciciosPublicados():integer;
var total,POS:integer;
begin
  total:=0;
  POS:=DM.tabla_ejercicios.Fieldbyname('idejercicio').AsInteger;
  DM.tabla_ejercicios.First;
  while NOT(DM.tabla_ejercicios.Eof) do 
  begin
    if DM.tabla_ejercicios.FieldByName('publicadoenpractica').AsInteger = 1 then
    begin
      Inc(total);
      DM.tabla_ejercicios.Next;
    end;
  end;
  DM.tabla_ejercicios.Locate('idejercicio',POS,[]);
  RESULT:=total;
end;