1

¿Alguien puede ayudarme?

procedure TForm1.ButtonPlusLessClick(Sender: TObject);
var
pMinus: Real;

begin
  pMinus := StrToFloat(txtResult.Text);
  txtResult := FloatToStr(-1 * pMinus);
end;

El error que me aparece es el siguiente: E2010 Incompatible types: 'TEdit' and 'string'.

1 respuesta 1

0

txtResult es un TEdit. FloatToStr devuelve un String.

La parte derecha/izquierda de esta asignación no son iguales:

txtResult := FloatToStr(-1 * pMinus);

Supongo que quieres/debes hacer esto:

txtResult.Text := FloatToStr(-1 * pMinus);
1
  • Perfecto, solucionado, gracias.
    – Mario16
    el 28 ene. 2022 a las 12:26

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.