validar un precio en un tedit

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

[edr_tuc]

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

[ContraVeneno]

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