|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите пожалуста! Скажите в чем ошибка
Код:
procedure TForm6.cbb1Change(Sender: TObject); begin if cbb1.ItemIndex=1 then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1 else ShowMessage('Виберіть книгу'); end; |
#2
|
||||
|
||||
в знаке присвоения вместо знака равенства.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
поменял.Все ровно ошыбка
[Error] Unit6.pas(36): ':=' expected but '=' found |
#4
|
|||
|
|||
Карая из приведённых вами строк - тридцать шестая?
|
#5
|
||||
|
||||
Операторы в Паскаль разделяются ; а не and
Пишу программы за еду. __________________ |
#6
|
|||
|
|||
вот ета
Код:
then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1 else Последний раз редактировалось M.A.D.M.A.N., 29.11.2016 в 07:54. |
#7
|
||||
|
||||
Да, оно самое.
Пишу программы за еду. __________________ |
#8
|
|||
|
|||
Цитата:
ага, а еше составной оператор делается с помощью begin..end. т.е. код должен быть такой: Код:
procedure TForm6.cbb1Change(Sender: TObject); begin if cbb1.ItemIndex=1 then begin cbb2.ItemIndex:=2; cbb3.ItemIndex:=3; cbb4.ItemIndex:=1; end else ShowMessage('Виберіть книгу'); end; |