[Lazarus-es] Sobre Validación de textbox

[Maxi]

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ó:
> 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ó:
>
>> 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.
>>
>> > Date: Wed, 30 Oct 2013 23:06:40 +0100
>> > From: aevorar en gmail.com
>> > To: lazarus-es en lists.lazarus.freepascal.org
>> > Subject: Re: [Lazarus-es] Sobre Validación de textbox
>>
>> >
>> > 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.
>> >
>> > _______________________________________________
>> > Lazarus-es mailing list
>> > Lazarus-es en lists.lazarus.freepascal.org
>> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>



-- 
El que pregunta aprende, y el que contesta aprende a responder.

No a la obsolecencia programada:
http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml

Linux User #495070
http://domonetic.com/blog