Показать сообщение отдельно
  #5  
Старый 16.08.2014, 19:18
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Тогда уж лучше так
Код:
var
m, j: integer;
...
m:= 0;
j:= 0;
Table1.First;

while Table1.Eof do
begin
if Table1.FieldByName('sex').Value='Муж' then
Inc(m)
else
Inc(j);
Table1.next;
end;
Edit1.text:= IntToStr(m);
Edit2.text:= IntToStr(j);
хотя запросом намного легче и быстрее
Ответить с цитированием