Procedure TFrmCalc.BtnPlusClick (Sender: TObject); begin FrmCalc.LblPlus.Visible: =True; FrmCalc.LblMinus.Visible: =False; FrmCalc.LblDel.Visible:…

Question

71

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

sideis · Accepted Answer

34

sideis

25 февраля 2023

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; Попробуйте так, мне сейчас не на чем проверить, но должно получиться=)

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: