Задать вопрос
3 ноября, 03:33

Procedure TFrmCalc. BtnPlusClick (Sender: TObject) ;

begin FrmCalc. LblPlus. Visible:=True;

FrmCalc. LblMinus. Visible:=False;

FrmCalc. LblDel. Visible:=False;

FrmCalc. LblUmn. Visible:=False;

FrmCalc. LblA. Caption: = (StrToInt (FrmCalc. EdtCh1. Text) + StrToInt (FrmCalc. EdtCh2. Text)) ;

end;

Выдает ошибку:

Error: Incompatible type for arg no. 1: Got "LongInt", expected "TTranslateString"

Подскажите кто-нибудь, В чем ошибка (?), Ставил IntToStr, только тип Float не пробовал.

+4
Ответы (1)
  1. 3 ноября, 06:00
    0
    Procedure TFrmCalc. BtnPlusClick (Sender: TObject) ;

    begin

    FrmCalc. LblPlus. Visible:=True;

    FrmCalc. LblMinus. Visible:=False;

    FrmCalc. LblDel. Visible:=False;

    FrmCalc. LblUmn. Visible:=False;

    FrmCalc. LblA. Caption:=IntToStr (StrToInt (FrmCalc. EdtCh1. Text) + StrToInt (FrmCalc. EdtCh2. Text)) ;

    end;

    Попробуйте так, мне сейчас не на чем проверить, но должно получиться =)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Procedure TFrmCalc. BtnPlusClick (Sender: TObject) ; begin FrmCalc. LblPlus. Visible:=True; FrmCalc. LblMinus. Visible:=False; FrmCalc. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы