1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| var
IFilles, IGarcons: Integer;
begin
IFilles := 0;
IGarcons := 0;
MaTable.DisableControls; // vaut mieux si relié à un control, + rapide
try
MaTable.First;
while not MaTable.Eof do
try
case MaTable.FieldByName( 'Sexe' ).AsInteger of // OU BIEN
case MaTableSexe.AsInteger // si ta table possède des TFields... + rapide
0 : Inc( IFilles );
1 : Inc( IGarcons );
end;
finally MaTable.Next; end;
finally
// éventuellement repositionnement sur enreg initial...
MaTable.EnableControls;
end;
// IFilles et IGarcons à jour
end; |
Partager