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.EdtCh...
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 не пробовал .
Гость
Ответ(ы) на вопрос:
Гость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;
Попробуйте так, мне сейчас не на чем проверить, но должно получиться =)
Не нашли ответ?
Похожие вопросы