Задать вопрос
19 ноября, 22:22

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 не пробовал.

+5
Ответы (1)
  1. 20 ноября, 00:06
    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. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы