|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Навигационный способ
Люди, пожалуйста помогите! я в delphi настоящий чайник!!!!!! Нужно навигационным способом подсчитать количество студентов заданой группы,(имееться ввиду в созданой базе данных) и рез-ты представить в окне сообщения!!!!!!
|
#2
|
|||
|
|||
Что значит "навигационным способом" пробежать по таблице и посчитать?
|
#3
|
|||
|
|||
Ну, наверное!?!?!?? Главное, что бы не использовали SQL запрос!
|
#4
|
|||
|
|||
Тогда так:
Код:
stud:=0; table1.first; repeat if (table1.fieldbyname['ПОЛЕ Группы'].asString=findtext then stud:=stud+1; table1.next; until table1.eof; showmessage('Студентов этой группы-'+inttostr(stud)); |
#5
|
|||
|
|||
Мне выдает ошибку на stud:=0;
вот такую [Error] Unit1.pas(70): Statement expected but end of file found |
#6
|
|||
|
|||
и еще [Error] Unit1.pas(59): Undeclared identifier: 'stud'
|
#7
|
|||
|
|||
весь модуль приведите.
и еще [Error] Unit1.pas(59): Undeclared identifier: 'stud' он же говорит не описана переменная. Опишите: Код:
var stud:integer; |
#8
|
|||
|
|||
А теперь на этой сточке
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 |
#9
|
|||
|
|||
Код:
if (table1.fieldbyname['ПОЛЕ Группы'].asString=findtext) then stud:=stud+1; |
#10
|
|||
|
|||
все равно ошибки, теперь вот такие:
[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' |
#11
|
|||
|
|||
Весь код покажите!
Стукнитесь в аську ICQ 11198089четыре |
#12
|
|||
|
|||
пардон ошибся со скобками
Код:
if (table1.fieldbyname('ПОЛЕ Группы').asString=findtext) then stud:=stud+1; |
#13
|
|||
|
|||
Ok! только сейчас аську установлю. а то я е не пользуюсь.
|
#14
|
|||
|
|||
не всеравно не работает ((( Я сейчас на аську отправлю
|