[krtoshl]

Код:

1 2 3 4 5 6

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;

MAD: пользуемся тегами

[M.A.D.M.A.N.]

в знаке присвоения вместо знака равенства.

[krtoshl]

поменял.Все ровно ошыбка
[Error] Unit6.pas(36): ':=' expected but '=' found

[icWasya]

Карая из приведённых вами строк - тридцать шестая?

[NumLock]

Операторы в Паскаль разделяются ; а не and

[krtoshl]

вот ета

Код:

1	then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1  else

MAD: повторно напоминаю про тег [/code]

[NumLock]

Да, оно самое.

[lmikle]

Сообщение от krtoshl

вот ета
then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1 else

ага, а еше составной оператор делается с помощью begin..end.
т.е. код должен быть такой:

Код:

1 2 3 4 5 6 7 8 9 10 11

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;