17 respuestas en este tema

[JoAnCa]

Hola a todos
Necesito que un control TEdit solo me acepte numeros tipo float, es decir con decimales

Con

delphi

if not( key in ['0'..'9',#8]) then
   key := #0;

no me sirve, pues no me deja poner el punto decimal

tambien probe con:

delphi

  if Not ((StrScan('0123456789,.-',Key) <> nil) or (Key = Char(VK_BACK))) then
    Key:=#0;

En este caso me deja poner el punto decimal, pero tambien deja poner mas de uno y cuando se hace la conversion da error

Alguien tiene alguna idea mejor?

[poliburro]

Puedes usar las RX library. Tienen un componente llamado CurrencyEdit y es perfecto para lo que requieres.

Saludos

[Caral]

Hola
Este componente es el que uso.
Contiene dos edit, uno es para float.
Se instala como cualquier otro componente.
Es muy sencillo y practico.
Saludos

[defcon1_es]

Hola a todos
Necesito que un control TEdit solo me acepte numeros tipo float, es decir con decimales

Con

delphi

if not( key in ['0'..'9',#8]) then
   key := #0;

no me sirve, pues no me deja poner el punto decimal

prueba asi:

delphi

if not( key in ['0'..'9',#8,SysUtils.DecimalSeparator]) then
   key := #0;

Si además permites números negativos, debes incluir en el conjunto el caracter '-'

[JoAnCa]

Muchas gracias a todos por sus respuestas 

Ya probe el CurrencyEdit que me dijo Poliburro y Ok,

Tambien acabo de descargar el componente de Caral para probarlo, me gusta probar todas las opciones que me dan

defcon1_es
Los negativos no me interesan, pues siempre seran valores positivos, es cierto que con esa opcion solo admite Float, pero tambien permite mas de un separador decimal

[Wilson]

Con esta funcion  y el evento onkeyPress  Funciona correctamente

delphi

function HaySeparador(const S:string):Boolean;
var
i,n :integer;
Separador : Char;
begin
n:= 0;
Result := False;
 Separador := SysUtils.DecimalSeparator;
 for I := 1 to Length(S) do
   if S[i] = Separador then
   n:= n+1;
   Result := n >0;   
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
Separador : Char;
begin
Separador := SysUtils.DecimalSeparator;
if (Key = Separador) and (Length(Edit1.Text) = 0) then
begin
 key := char(0);
 showmessage('Caracter incorrecto');
 Exit;
end;
 
if (Key = Separador) and HaySeparador(Edit1.Text) then
begin
 key := char(0);
 showmessage('Ya hay separador');
 Exit;
end;
 
if  not (key in['0'..'9',Separador,#8]) then
begin
 key := char(0);
 showmessage('Caracter invalido');
end;
end;

[defcon1_es]

es cierto que con esa opcion solo admite Float, pero tambien permite mas de un separador decimal

Cierto, no caí­ en ello porque me fijé en un código fuente antiguo...

En el nuevo cambiamos los DBEdit por CurrencyEdit y actualizamos la info pasando los valores de los CurrencyEdit como parámetros de un IBStoredProc

[Faust]

ja ja ja...

Acabo de leer este mismo hilo en Club Delphi...

No crean que me molesto, pero hay que agotar los recursos...

saludos. 

[axesys]

Aquí­ otra alternativa usando expresiones regulares en el evento keypress

delphi

  if (not (Key in [Chr(VK_BACK)])) and (not ExecRegExpr('^\d*(\'+DecimalSeparator+'\d*)?$', (Sender as TEdit).Text + Key)) then
      Key:= #0

Saludos

[Delphius]

Otra opción, como alternativa, es dejar que en Edit se escriba y hacer la comprobación después . En este punto puede ser útil valerse de la función TryStrToFloat, y/o porqué no... de Val(). Empleando Val() podemos evaluar en el parámetro Code cual es el caracter inválido.

Saludos,

[JoAnCa]

ja ja ja...

Acabo de leer este mismo hilo en Club Delphi...

No crean que me molesto, pero hay que agotar los recursos...

saludos. 

Pues si Faust, tambien lo publique en Club Delphi, asi las posibilidades de respuestas son mayores   
Me gusta participar en los dos foros, como muchos aqui   

[egostar]

ja ja ja...

Acabo de leer este mismo hilo en Club Delphi...

No crean que me molesto, pero hay que agotar los recursos...

saludos. 

Pues si Faust, tambien lo publique en Club Delphi, asi las posibilidades de respuestas son mayores   
Me gusta participar en los dos foros, como muchos aqui   

Hola JuAnCA, en DelphiAccess no tenemos ningún problema de que se participe en ambos foros, varios lo hacemos, sin embargo, lo único que se puede pedir (si se puede decir así) es que respetes tanto las respuestas de Club Delphi como las de DelphiAccess, por supuesto esto no tiene nada que ver con pedir permiso ni nada por el estilo, tiene que ver con un respeto no escrito que nos debemos tener entre foros en relación a las respuestas que se te den, por lo demás por supuesto que estas en tu derecho de participar donde gustes, nada malo hay en eso y nadie te lo va a reclamar.

Salud OS

[JoAnCa]

Hola JuAnCA, en DelphiAccess no tenemos ningún problema de que se participe en ambos foros, varios lo hacemos, sin embargo, lo único que se puede pedir (si se puede decir así) es que respetes tanto las respuestas de Club Delphi como las de DelphiAccess, por supuesto esto no tiene nada que ver con pedir permiso ni nada por el estilo, tiene que ver con un respeto no escrito que nos debemos tener entre foros en relación a las respuestas que se te den, por lo demás por supuesto que estas en tu derecho de participar donde gustes, nada malo hay en eso y nadie te lo va a reclamar.

Salud OS

Que hice mal? 

Que no respeté? 

[egostar]

Hola JuAnCA, en DelphiAccess no tenemos ningún problema de que se participe en ambos foros, varios lo hacemos, sin embargo, lo único que se puede pedir (si se puede decir así) es que respetes tanto las respuestas de Club Delphi como las de DelphiAccess, por supuesto esto no tiene nada que ver con pedir permiso ni nada por el estilo, tiene que ver con un respeto no escrito que nos debemos tener entre foros en relación a las respuestas que se te den, por lo demás por supuesto que estas en tu derecho de participar donde gustes, nada malo hay en eso y nadie te lo va a reclamar.

Salud OS

Que hice mal? 

Que no respeté? 

No hiciste nada mal, simplemente estoy comentandolo por lo que paso en el hilo de las bocinas y que al estar en ambos foros puede suceder.

Salud OS

[JoAnCa]

Uhff menos mal, me habia asustado 

[egostar]

Uhff menos mal, me habia asustado 

Nada amigo, todo bien.

Salud OS

[off-topic]Por cierto, ¿acabas de colocar la bandera de Cuba en tu avatar?, no la había visto, es muy bonita[/off-topic]

[JoAnCa]

[off-topic]Por cierto, ¿acabas de colocar la bandera de Cuba en tu avatar?, no la había visto, es muy bonita[/off-topic]

Pues si, la acabo de poner,
si, es muy bonita

[cadetill]

Buenas,

Personalmente recomiendo el uso de las JVCL antes de las RxLib dado que las RxLib ya no se mantienen y las JVCL incorporaron esos componentes, corrigieron bugs y siguen activas

Nos leemos