validar un precio en un tedit

[jesus83]

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

[Onti]

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

[Neftali [Germán.Estévez]]

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).

[jesus83]

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,recioProducto)';
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

[Neftali [Germán.Estévez]]

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

[richi]

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.