Показать сообщение отдельно
  #4  
Старый 24.06.2010, 15:34
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Тогда так:

Код:
stud:=0;
table1.first;
repeat
  if (table1.fieldbyname['ПОЛЕ Группы'].asString=findtext then stud:=stud+1;
  table1.next;
until table1.eof;
showmessage('Студентов этой группы-'+inttostr(stud));
Ответить с цитированием