Не могу найти ошибку

[anghela]

Помогите, пожалуйста, найти ошибку:

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

Ошибку выдает: [Error] Unit8.pas(100): Operator not applicable to this operand type

[asmprog]

вы какой-то список(CB_vid_kred) сравниваете со строкой, может стоит эл-т списка взять?

[D-mon]

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

[Вадим Мошев]

Операнды логических операций надо заключать в скобки. То есть, у вас должно быть написано:

if (CB_vid_kred.Items='автокредит') and (CB_srok_kr.Items='3') then

[anghela]

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

[Stilet]

CB_srok_kr.Items[CB_srok_k.ItemIndex]='3'

И это еще не все проблемы, которые могут всплыть.

[anghela]

так как исправить?

[Stilet]

Так как я показал подходит?

[anghela]

нет, не работает(((

[Stilet]

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

Если это не поможет то тебе придется изучать все с нуля, читать хелп о комбобоксах и Листбоксах дотошно.