[*Caro*]

Empezado por sisne

Hola!
Roman, si fuese el caso de usar sql como seria su implementacion en delphi? usando un query en sql colocaria ese codigo? y para llamar como tendria que hacerlo? por favor pautas..para no hacer un ciclo como dices.
Gracias Roman.

Hola sisne, debes utilizar un query para ejecutar la consulta.

Código Delphi [-]
var
 ind : Integer;
begin
  Query.Close;
  Query.Sql.Text := 'select calificacion, count(calificacion) As Cant from materias '+
                           'group by calificacion order by calificacion';
  Query.Open;
  
  ind :=0;
  Query.First;
  While Not Query.Eof do
   begin
    Inc(ind);
    Case ind of
     1: A := Query.FieldByName('Cant').AsInteger;
     2: R := Query.FieldByName('Cant').AsInteger;
     3: N := Query.FieldByName('Cant').AsInteger;
    end;         
    Query.Next 
   end;
  Total := A+R+N;

Saluditos