Ver Mensaje Individual
  #7  
Antiguo 24-02-2023
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
¿Podría ser que en tu código exista una función que se llame StrToFloat?

Prueba a usar la función de conversión como "System.SysUtils.StrToFloat"

Código Delphi [-]
function StrToFloat(S: string): Extended;
begin
  Result := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  D: Extended;
begin
  //Acá se usa la función StrToFloat local y devuelve un 0
  D := StrToFloat('100');
  ShowMessage(FloatToStr(D));

  //Acá se usa la función StrToFloat de la VCL y devuelve el valor correcto
  D := System.SysUtils.StrToFloat('100');
  ShowMessage(FloatToStr(D));
end;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita