[kateenka]

Люди, пожалуйста помогите! я в delphi настоящий чайник!!!!!! Нужно навигационным способом подсчитать количество студентов заданой группы,(имееться ввиду в созданой базе данных) и рез-ты представить в окне сообщения!!!!!!

[Black Raider]

Что значит "навигационным способом" пробежать по таблице и посчитать?

[kateenka]

Ну, наверное!?!?!?? Главное, что бы не использовали SQL запрос!

[Black Raider]

Тогда так:

Код:

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

[kateenka]

Мне выдает ошибку на stud:=0;
вот такую [Error] Unit1.pas(70): Statement expected but end of file found

[kateenka]

и еще [Error] Unit1.pas(59): Undeclared identifier: 'stud'

[Black Raider]

весь модуль приведите.

и еще [Error] Unit1.pas(59): Undeclared identifier: 'stud'
он же говорит не описана переменная.
Опишите:

Код:

var stud:integer;

[kateenka]

А теперь на этой сточке
if (table1.fieldbyname['ПОЛЕ Группы'].asString=findtext then stud:=stud+1;

выдает такие ошибки???
[Error] Unit1.pas(63): Not enough actual parameters
[Error] Unit1.pas(63): ')' expected but identifier 'asString' found
[Error] Unit1.pas(63): ')' expected but identifier 'asString' found

[Black Raider]

Код:

if (table1.fieldbyname['ПОЛЕ Группы'].asString=findtext) then stud:=stud+1; 

[kateenka]

все равно ошибки, теперь вот такие:
[Error] Unit1.pas(63): Not enough actual parameters
[Error] Unit1.pas(72): Statement expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Black Raider]

Весь код покажите!

Стукнитесь в аську
ICQ 11198089четыре

[Black Raider]

пардон ошибся со скобками

Код:

if (table1.fieldbyname('ПОЛЕ Группы').asString=findtext) then stud:=stud+1;

[kateenka]

Ok! только сейчас аську установлю. а то я е не пользуюсь.

[kateenka]

не всеравно не работает ((( Я сейчас на аську отправлю