Hola a todos.

Estoy retomando un proyecto que esta en producci�n y quisiera validar el ingreso en un TextBox seg�n la configuraci�n regional de windows XP

Ejemplo si en un TextBox digito 14.50 este autom�ticamente remplace el formato seg�n la configuraci�n regional, seg�n el ejemplo esto deber�a quedar 14,50

intente con este ejemplo

*var*

  formatSettings : *TFormatSettings*;

**
*begin*

  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, formatSettings);
**

ShowMessage('1234.56 formats as = '+

              CurrToStrF(1234.56, ffCurrency, 4, formatSettings));

*end;*
*
*
*pero no tengo buenos resultados.*
*
*
*me conformo que la validaci�n se realice al sacar el cursor del TextBox* *
*
*Saludos.*

-------------------
Abraham Monta�o
abraham.montano en gmail.com
Chiclayo - Per�
---------------------
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20131030/015ef2f1/attachment.html>

El 30/10/13 21:27, Abraham escribi�:

14.50 este autom�ticamente remplace el formato seg�n la configuraci�n regional, seg�n el ejemplo esto deber�a quedar 14,50

Para eso en el evento OnExit puedes hacer:

tbNumerico.Text:=StringReplace(tbNumerico.Text,ThousandSeparator,DecimalSeparator,[rfReplaceAll]);

Saludos.

Buenas
Recuerdo que en una aplicaci�n en el evento OnKeyPress cuando el usuario digitaba un punto, inmediantamente lo reemplazaba por coma, de tal forma que siempre se almacene de forma correcta. Es otra idea.

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20131030/82c80216/attachment.html>

Hola a todos y gracias por su respuesta.

Antonio eso es lo que vengo haciendo por el momento ya que si yo digito en el TextBox 14.00 realiza bien el cambio a 14,00 pero que pasaria si se digita 14,580.58 el resultado seria 14,580,58

pero la idea es usar el formato que tienen la configuracion regional de windows.

Saludos.

-------------------
Abraham Monta�o
abraham.montano en gmail.com
Chiclayo - Per�
Cel: 074-957514597
RPM: #957514597
---------------------

El 31 de octubre de 2013 02:52, Ulises D�az <udiaz60 en hotmail.com> escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20131031/89087abd/attachment.html>

tines la funcion formatfloat,en dos versiones

Function FormatFloat(Const Format : String; Value : Extended) : String;
Function FormatFloat(Const Format : String; Value : Extended; Const
FormatSettings: TFormatSettings) : String;

la primera toma el formato por defecto del SO y la segunda lo fuerzas segun el formato deseado.
pero me parece que no es lo mas apropido usar un textbox para ingresar numeros. tienes otros controles como tmaskedit, spinedit, spinfloatedit, yo en codetyphon tengo como 20 controles que hacen eso.

Pero con las funciones anteriores y con un try..except puedes controlar que est� bien cargado el numero

El d�a 31 de octubre de 2013 09:14, Abraham
<abraham.montano en gmail.com> escribi�: