[anghela]

Код:

procedure TForm8_kalculator.CB_vid_kredChange(Sender: TObject);
begin
  if (CB_vid_kred.Items.ValueFromIndex[CB_vid_kred.ItemIndex]='автокредит') and (CB_srok_kr.Items.ValueFromIndex[CB_srok_kr]='3')then
  Edit1.Text:='13,5';
end;

выдает ошибку перед ='3':
[Error] Unit8.pas(100): Incompatible types: 'Integer' and 'TComboBox'
Помогите исправить

[NumLock]

Код:

and (CB_srok_kr.Items.ValueFromIndex[CB_srok_kr.ItemIndex]='3')then

наверное?

[anghela]

спасибо, ошибка больше не выходит, но и значение поля едит1 не изменяется, т.е. что-то не работает. Вот только что?

[NumLock]

очевидно не выполняется одно из условий