Edits solo acepte numeros y , .

[JXJ]

este es mi pequeño problema

estoy viendo que un edit me acepte

solo numero y sus delimitadores como son

, .

algo asi. 100.20

ó
100,20

5, 500.50
5, 500,50
5.500.50


encontre este codigo pero no se bien como adaptarlo


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

[José Luis Garcí]

ese código es para que lo pongas en el evento OnkeyPress del edit, así cada vez que pulses una tecla, comprobara que este dentro de ese rango, si no no la admite y no la representa.

[newtron]

Hola.

El controlar por código en cada uno de los edits que vayas a usar el tipo de campo que va a admitir, cadena, numérico, fecha, etc se te puede volver bastante engorroso en el momento que tengas unos cuantos edits, cosa que será lo habitual.

Yo te recomendaría crear, o en su defecto, usar algún componente para los edits que ya tengan implementada esas propiedades y te ahorrarás bastante faena y problemas.

Saludos

[José Luis Garcí]

Busca mi componente en el Club, TEditDefault, si quieres usar un componente, claro..

[ecfisa]

Hola JXJ.

Para que solo admita números y los delimitadores '.' y ',' , basta con poner este código en el evento OnKeyPress de los Edits.

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#8,'0'..'9',',','.']) then
begin
MessageBeep(MB_ICONERROR);
Key:= #0;
end;
end;


Pero existe la posibilidad de que duplique un delimitador u otra inconsistencia que realize por copiar/pegar. Por lo que deberías complementar con este código en el evento OnExit de los Edits.

procedure TForm1.EditExit(Sender: TObject);
var
d: Double;
begin
if not TryStrToFloat(TEdit(Sender).Text,d) then
begin
MessageBeep(MB_ICONERROR); //o el mensaje que quieras
TEdit(Sender).SetFocus;
end;
end;


Un saludo.

[JXJ]

ecfisa
Eres grande.
Un saludo.