problema son StrToFloat

[juggern]

Buenos días chicos,

Lo de strtofloat y .AsCurrency lo puse porque buscando alternativas, probé también eso y veo que de esa forma me sigue asignando un 0.
Vuelvo a hacerlo con más calma aclarando las variables, quizás como dice Casimiro, al hacerlo rápido no fui muy limpio.

Código Delphi [-]
var
  ePrecio:Extended;
  dPrecio: Double;
  rPrecio: real;
  siPrecio: Single;
  cPrecio: Currency;
  sPrecio: string;

begin
      sPrecio:= '105';
      ePrecio:= StrToFloat(sPrecio);
      dPrecio:= StrToFloat(sPrecio);
      rPrecio:= StrToFloat(sPrecio);
      siPrecio:= StrToFloat(sPrecio);
      cPrecio:= StrToFloat(sPrecio);
      cPrecio:= StrToCurr(sPrecio);
end

Todo eso, me asigna todo el rato un 0 salvo sPrecio, que me guarda un 105;


Para buscar alternativas, he hecho lo de guardar el valor en un campo de una tabla y luego recogerlo de nuevo.
El campo de la tabla es money

Me lo guarda correctamente, y al recuperarlos, me sigue guardando un 0 salvo en la variable string que me lo guarda correctamente:

Código Delphi [-]
      Query.FieldByName('Precio').Value:= StrToCurr(sPrecio);

      Query.Post;
      cPrecio:= Query.FieldByName('Precio').AsCurrency;
      dPrecio:= Query.FieldByName('Precio').AsFloat;
      sPrecio:= Query.FieldByName('Precio').AsString;

He revisado lo que comenta movorack por si acaso y no existe otra función en el programa y al seguirla me lleva correctamente a SysUtils.

Como estoy guardando el valor en las variables de varias formas, tanto usando los métodos de sysutils como los del ADOQuery y con todos me guarda un 0, pues por eso os decía lo de que creía que había algún problema al guardar.

No se, estoy bastante despistado. He usado mas veces en otros sitios estas conversiones y no he tenido problemas salvo la otra vez hace tanto tiempo que os comenté.

He probado a hacer un Clean del proyecto, pero nada.

Edito**: Había insertado imágenes con la watch list desde delphi pero se ve que no me lo ha cogido

[juggern]

Hola chicos,

Creo que he dado con la clave, el problema está en el ámbito de las variables o algo de eso.
Cuando hago la asignación a cualquier variable que declaro dentro del procedimiento, me las deja a 0, salvo las de tipo string, pero si declaro una variable global, en esa si que me guarda bien el dato.
El procedimiento lo tengo declarado dentro de la clase del formulario principal, pero he probado a declarar el procedimiento en distintos sitios, incluso global y nada. Solo me asigna bien el valor si lo meto en una variable global.

[[duilioisola]]

Quizás tengas el mismo nombre de variable gobal y de procedimiento y eso te esté confundiendo...
Si utilizas varables globales la recomendación es ponerles un prefijo para no mezclarlas con otras de ámbito más restringido
Por ejemplo "GLB_Precio".

Código Delphi [-]
unit TEST;

var
  Precio : double;

procedure PRUEBA;
var
  Precio : double;
begin
  // Esta variable Precio es la del procedimiento. La global no se modifica.
  Precio := 200;
end;

begin
  Precio := 0;
  Prueba;
  ShowMessage(FloatToStr(Precio);  // <--- Esto imprime 0 porque toma la variable global
end.

[juggern]

Hola!!!

Al final lo he solucionado usando variables globales.

Las variables globales siempre les pongo otro prefijo para distinguirlas y no hay otra con ese nombre, igualmente, el valor se lo asigno dentro de la función y la uso dentro de la función, es una variable local y lo que hace es que no me deja asignarle ningún valor, se queda a 0. Me pasa con las tipo numérico no con las string, asique debe ser algo de acceso a memoria o yo que se jeje.

[Casimiro Notevi]

Empezado por juggern

Hola!!!
Al final lo he solucionado usando variables globales.
Las variables globales siempre les pongo otro prefijo para distinguirlas y no hay otra con ese nombre, igualmente, el valor se lo asigno dentro de la función y la uso dentro de la función, es una variable local y lo que hace es que no me deja asignarle ningún valor, se queda a 0. Me pasa con las tipo numérico no con las string, asique debe ser algo de acceso a memoria o yo que se jeje.

Las variables globales solamente para cuando no tenga más remedio que usarla. Nunca jamás para resolver un problema. Solamente te va a traer dolores de cabeza después.
Pon tu proyecto, o un ejemplo de tu proyecto, para que le demos un vistazo, así lo solucionamos "de verdad",