Hola!
Les cuento que solucioné ese detalle.
ecfisa, segui tu ayuda y coloqué este código:
Código:
TMateria.First;
while not TMateria.Eof do
begin
Kon:=Kon+1;
If Facademico.TmateriaCalificacionM.Text='Aprobado' then inc(A);
If Facademico.TmateriaCalificacionM.Text='Reprobado' then inc(R);
If Facademico.TmateriaCalificacionM.Text='Ninguno' then inc(N);
TMateria.Next;
end;
El bendito Next me faltaba....Gracias ecfisa.
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.