24.06.2010, 15:34
|
Местный
|
|
Регистрация: 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));
|