como se puede validar un edit para solo numeros

[carlos gonzalez]

Hola amigos alguien sabe como validar un edit para que me permita poner solo numeros con 2 decimales.

por ejemplo

2500.25
6400.00
etc.

Saludos

[marcoszorrilla]

A poco que lo optimices, con esto te valdrá:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,'0'..'9',DecimalSeparator,'+','-']) then key:=#0;
end;]

Un Saludo.

[carlos gonzalez]

hola amigo, que crees ya probe tu codigo y si me valida que pueda poner solo numeros y el punto decimal, pero lo malo es que puedo meter los puntos(.) que yo quiera y solo me debe de permir poner un solo punto.

saludos

[marcoszorrilla]

Por eso te decía a poco que lo optimices. Puedes utilizar la función Pos puedes mirar a ver si ya hay un separador decimal y no permitir que pongan otro.

Un Saludo.