Procedure TFrmCalc. BtnPlusClickSender: TObject-begin FrmCalc. LblPlus. Visible:=True — FrmCalc. LblMinus. Visible:=False — FrmCalc. LblDel. Visible:=False — F

21 сентября 2013 / Разное

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;     

    Попробуйте так, мне сейчас не на чем проверить, но должно получиться =)


Добавить комментарий