validar un precio en un tedit
 

necesito validar un precio que solo escriba numeros y una sola vez el punto decimal si alguien me pude ayudar se lo agradesco

Podrías utilizar el componente CurrencyEdit de las librerías RXLib

Segun la version de Delphi que tengas puedes utilizar FloatToStrF; Se trata de convertir un Float a String; Si miras la ayuda verás que si el parámetro de entrada no es un número correcto, el resultado es la cadena "NAN" (not a Number).

Gracias por la respuesta me ayudo mucho
 

hola que tal espero que para otros usuarios les sirva esta respuesta de lo que hice concatene dos cadenas y la converti a float ejemplo :

ppv: double;
Edit3.Text:=Edit1.text+'.'+Edit2.Text;
//(variable de tipo doble)
ppv:=StrToFloat(edit2.Text);

y luego lo pase por parametros a la base de datos de MySQL

sifdatamodule.adoquery1.close;
sifdatamodule.adoquery1.sql.text:='INSERT INTO producto VALUES( :codigoProducto,:nombreProducto,:precioProducto)';
sifdatamodule.adoquery1.parameters.parambyname('codigoProducto').Value:=sifleltprdt1.text;
sifdatamodule.ADOQuery1.Parameters.ParamByName('nombreProducto').Value:=sifleltprdt2.text;
sifdatamodule.ADOQuery1.Parameters.ParamByName('precioProducto').Value:=ppv;//Text;
sifdatamodule.adoquery1.execsql;

gracias por respuesta me servio mucho

Recuerda utilizar TAG's en tus mensajes cuando escribas trozos de código Delphi, SQL, PHP,...

Lo que pudes hacer es poner en el OnKeyPress del edit lo siguiente:

Código Delphi [-]
if (key in['0'..'9',#8,',']) then
  begin
    if (key = ',') then
    begin
      try
        temp  := strToFloat(Edit1.text+key);
      except
        key:= #0;
      end;
    end;
  end
  else
    key:= #0;

Siendo temp una variable de tipo real o currecy segun lo que te haga falta.

mensaje de error al ingresar 2 veces el separador decimal en mi caso la coma " , "
 

hola a todos ,navgando llegue a esta cadena de preg y respuestas la cual me sirvio muchisimo, el unico problema al aplcar la solucion que dio richi es que cuando ingreso dos veces la " , " (la coma) me aparece un mensaje de error, no asi cuando ingreso una letra (no aparece nada )
habria alguna forma de que no me apareciera ese mensaje ??
espero sus respuesta muchas gracias

Tantos problemas y tantas líneas de código cuando todo se soluciona simplemente utilizando un TCurrencyEdit de las RXLib (como ya había dicho Onti) o el TjvValidateEdit de las Jedi.

PD. Por cierto, tanto las RXLib como las Jedi son gratis

Mira aquí

http://www.clubdelphi.com/foros/show...solo+n%FAmeros

ya solucione con el hio que me direcciono fidel
 

muchas gracias a todos ,de verdad siempre me salvan
saludos a todos .-

De hecho, al menos hasta donde yo me quedé, las RXLib no tienen mas desarrollo ni mantenimiento, y fueron "absorbidas" o "donadas" o "retomadas" por el proyecto jedi.

Jedi, no solo es gratis, es libre (la licencia es la MPL 1.1) enlace

Hasta luego.

;)

La versión de Delphi7 compila casi sin tocar nada en D2006/D2007. Yo mismo hice algunos cambios y subí la versión con algunas instrucciones para instalarlas (por si alguien no quiere instalar todas las Jedi para tener las Rx).
En su día estaban en un link aquí en el club, pero creo que se perdió, en mi página sigue estando el paquete; link.