float con coma (,) o punto (.)

[roman]

Empezado por lmpadron

El primer edit recibe el número y en su evento KeyPress hago lo siguiente

void __fastcall TForm6::DBEdit9KeyPress(TObject *Sender, char &Key)
{
  if(Key == '.')
  {
     Key = ',';
  }
}

Jamás deberías hacer una cosa así. Jamás. Tu código debe respetar las preferencias regionales del usuario, en este caso, el separador que usen para los decimales, coma o punto. No deberías tener que preocuparte por cuál caracter introduce el usuario. La función StrToFloat se encarga de eso y para ello utiliza el valor de la variable global DecimalSeparator. Dicho valor se establece en la inicialización de la unidad SysUtils haciendo una consulta a la configuración regional establecida en el sistema. Tú no deberías alterar el valor de dicha variable y, ni siquiera debería preocuparte saber su valor.

Si el usuario tiene configurado el sistema para usar una coma como separador decimal y oprime un punto, es problema del usuario, tú no debes tratar de adivinar lo que él quería hacer, simplemente dejas que el sistema le marque el error:

'4.83' is not a valid floating point value.

A lo sumo, interceptas la excepción para dar un mensaje en español o más amigable:

Código Delphi [-]
var
  a: Double;

begin
  try
    a := StrToFloat(Edit1.Text);
  except
    on EConvertError do
      raise Exception.CreateFmt('%s no es un número flotante válido', [Edit1.Text]);
  end;
end;

En resumen, tu pregunta en este hilo ni siquiera debería darse. No lo digo por molestar, sino para enfatizar el hecho de que tu código no debería preocuparse por esto.

// Saludos

[[escafandra]]

Empezado por roman

Jamás deberías hacer una cosa así. Jamás. Tu código debe respetar las preferencias regionales del usuario, en este caso, el separador que usen para los decimales, coma o punto. ...

...En resumen, tu pregunta en este hilo ni siquiera debería darse. No lo digo por molestar, sino para enfatizar el hecho de que tu código no debería preocuparse por esto.

La apreciación de roman es muy cierta. Códigos como el que expones puede dar lugar a incertidumbre y frustración en el usuario. Nunca debes cambierle su configuración aunque puedes leerla tranquilamente.

Sin embargo no veo mal que exponga sus dudas pues el tema es útil desde el punto de vista didáctico. Ha servido para que tanto lmpadron como otros en su situación, se den cuenta de la existencia de distintas configuraciones del separador decimal y otros, como bien apunta ecfisa, y de pié al sabio consejo de roman.


Saludos.

[lmpadron]

Empezado por roman

Jamás deberías hacer una cosa así. Jamás. Tu código debe respetar las preferencias regionales del usuario

Román, como dices, algo así no debería hacerse y lo de respetar la configuración del usuario esta más que claro sin embargo los usuarios que van a usar este software deben insertar aproximadamente 3000 planillas en solo 8 horas por ende han solicitado que sea de la forma mas cómoda posible, lanzar un mensaje de error los haría primeramente tener que parar de insertar los datos además estarían forzados a usar la coma del teclado que es mucho mas incomoda cuando insertamos números dado que generalmente lo hacemos desde el área numérica del teclado (en caso de que esa sea su configuración).

Después de leer tu post reuní a los futuros usuarios y los puse al tanto del asunto y todos estuvieron de acuerdo en que hiciera lo que fuera necesario para que sea mas simple y cómoda la inserción de los datos en la base de datos.

Empezado por roman

No lo digo por molestar, sino para enfatizar el hecho de que tu código no debería preocuparse por esto.

No se preocupe, nunca es molestia recibir un consejo y mas aun cuando es tan tan bueno.

Empezado por gersojn

Hola, veras, para realizar el calculo sin que tengas problemas, efectivamente debes realizar la conversion Internamente(para que el usuario no lo perciba y trabaje a comodidad) o bien, externamente.

La solución de gersojn es muy buena pero no quisiera modificar el registro de todos mis usuarios y usar esa solución para determinar que esta usando como separador decimal y después efectuar el cambio es un problema inmenso ya que aunque mi soft se adapte a cada pc aun así estarían escribiendo en la base de datos los decimales con puntos o comas según su configuración y seria después muy molesto hacer algún calculo.

Empezado por escafandra

Creo que no has entendido la sugerencia de ecfisa

Pues si, tenias toda la razón realmente no la había entendido pero después de revisarla he decidido hacer la conversión interna como indica ecfisa y asi no modificar las preferencias regionales de los usuarios de acuerdo al consejo de Román

Empezado por ecfisa

  DecimalSeparator = '.';  // muestra: 125.000.12
  // o 
  DecimalSeparator = ',';  // muestra: 125.000,12

Al final el codigo ha quedado asi

void __fastcall TForm6::DBEdit9Change(TObject *Sender)
{           
           DecimalSeparator = '.'
           float a,b,c;
           b = Round(StrToFloat(Edit1->Text),2);
           c = 7.33;

           if (b == c)
           {
                DBEdit2->Text = "0";
           }
           else
           {
                if (b > c)
                {
                        MessageDlg("Upsss lo siento !!!!, el número A es mayor al numero B",mtInformation, TMsgDlgButtons() << mbOK, 0);
                }
                else
                {
                        a = c - b;
                        Edit2->Text = FloatToStr(Round(a,2));
                }
           }
}

De esta forma me funciona perfecto.

Quiciera agradecerles a todos los que me han ayudado a averiguar finalmente cual es el separador decimal en los float jamas imaginarme que estaba en el registro, eso explica porque el mismo código funcionaba perfecto en una pc y muy mal en otras. De paso he aprendido que existe DecimalSeparator para este tipo de casos.

Gracia a todos por prestarme su ayuda y su tiempo

[roman]

No creo que tenga caso colocar la asignación

DecimalSeparator = '.'

en el evento OnChange. Colócala en el constructor del formulario o en alguna parte similar al comienzo de tu aplicación.

// Saludos

[[Chris]]

Empezado por lmpadron

Román, como dices, algo así no debería hacerse y lo de respetar la configuración del usuario esta más que claro sin embargo los usuarios que van a usar este software deben insertar aproximadamente 3000 planillas en solo 8 horas por ende han solicitado que sea de la forma mas cómoda posible, lanzar un mensaje de error los haría primeramente tener que parar de insertar los datos además estarían forzados a usar la coma del teclado que es mucho mas incomoda cuando insertamos números dado que generalmente lo hacemos desde el área numérica del teclado (en caso de que esa sea su configuración).

Lo de mostrar un MessageBox ya lo hemos discutido. Ahora, con respecto a la comodidad del usuario y el punto que toca Román -súper importante-. Ve, asignarle directamente un valor a las variables como DecimalSeparator no es recomendable. Para hacer las conversiones, a cómo ha dicho Román, basta con un StrToFloat. Pero quieres que el divisor del punto flotante sea con . -punto-. Puedes hacer esto con StrToFloat se forma muy sencilla. Fíjate (código en Delphi):

Código Delphi [-]
var
    FS: TFormatSettings;
    NumberAsFloat: Double;
begin
    FS.DecimalSeparator := '.'; // usar . para punto decimal
    
    try
        NumberAsFloat := StrToFloat(Edit1.Text, FS); // el ultimo parametro
                                                     // es el que hace la magia
    except on EValueError do
        ShowBalloonTip ...
    end;
    
    ..
end;

¿Viste que fácil y claro el código?

Saludos!