enviar dato real a sql

[elmago]

Hola amigo Memo

Tu problema del signo de separacion de decimales lo tuve hace tiempo y lo resolvi cambiando la configuracion regional del win. alli donde se ingresa el signo para la separacion de miles le puse la "coma" y para la separacion de decimales le puse el "punto". Asi todo el Delphi trabaja con el formato aceptado por el SQL.

Espero que te sirva.

Un saludo.

[Memo6015]

si eso era!!! mi configuracion regional estaba en comas

lo puse en puntos y ya funciona muchas
pero muchas gracias

[donald shimoda]

Empezado por elmago

Hola amigo Memo

Tu problema del signo de separacion de decimales lo tuve hace tiempo y lo resolvi cambiando la configuracion regional del win. alli donde se ingresa el signo para la separacion de miles le puse la "coma" y para la separacion de decimales le puse el "punto". Asi todo el Delphi trabaja con el formato aceptado por el SQL.
Un saludo.

Si, pero el problema es este problema causa side effects sobre otras aplicaciones del sistema. No porque la solución sea la más simple implica que es la correcta.

Yo te recomiendo que busques por el lado de los params o bien que fuerces dentro de tu código el separador decimal. Lo lógico sería hacerlo sobre windows pero como te digo puedes afectar a otras aplicaciones, y hay que ser solidarios en un entorno compartido.

Saludos

[Memo6015]

si en eso tienes mucha razon por el momento puede ser una solucion temporal

lo otro que pense que tambien puede ser una muy buena solucion es
convertir la variable en sql de real a varchar asi podre enviar de delphi a
sql un string y como puedo extraer desde sql la variable como varchar y en delphi transformarla en float puedo operar sobre ella y devolverla como varchar de nuevo

y en sql para operar con esa variable puedo usar un CAST, estudiare algunas soluciones


gracias por los consejos

[ninguno]

Hola

Como dice donald shimoda, te aconsejo que uses DecimalSeparator para establecer momentáneamente el tipo de separador decimal que quieras usar

Código Delphi [-]
var
  Sep: char;
begin
.....
  Sep := DecimalSeparator;
  try
    DecimalSeparator := '.';

    // operaciones
  
  finally
    DecimalSeparator := Sep;
  end;