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
    Commented el 28 ene. 2022 a las 12:26

Tu Respuesta

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

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