validar que las cajas de texto solo acepten valores enteros y decimales

[dimer18]

hola q tal soy nuevo en el club delphi, bueno toy haciendo una aplicacion para realizar el metodo de gauss seidel en delphi, y bueno yo kiero ingresar valores a una matriz cuando doy clik en un button que se guarde en mi matriz lo que este en la caja de texto , pero kiero validar por medio de un codigo al dar click en el button que solo acepten valores enteros y decimales...... les agradezco por la ayuda que me puedan brindar...

[[Caral]]

Hola
Me parece que anda por el envento onkeypress del edit.
Aunque este tema se ha visto muchas veces y es cuestion de darle una buscadita.
Yo me encontre esto:

Código Delphi [-]
if StrScan ('1234567890', Key)=nil then

Por ahi andan los tiros.
Saludos

[Casimiro Notevi]

Empezado por dimer18

hola q tal soy nuevo en el club delphi, bueno toy haciendo una aplicacion para realizar el metodo de gauss seidel en delphi, y bueno yo kiero ingresar valores a una matriz cuando doy clik en un button que se guarde en mi matriz lo que este en la caja de texto , pero kiero validar por medio de un codigo al dar click en el button que solo acepten valores enteros y decimales...... les agradezco por la ayuda que me puedan brindar...

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

[ecfisa]

Hola dimer18.

Para que acepte sólo números enteros (0-9):

Código Delphi [-]
procedure SoloNumeros(Hnd: THandle);
begin
  SetWindowLong(Hnd, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) or ES_NUMBER);
end;
...
begin
  SoluNumeros(Edit1.Handle);
end;

Para que acepte números decimales usá este código en el evento OnKeyPress:

Código Delphi [-]
procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,',',' ','0'..'9']) then  //quitando: #8 y ',' sirve para numeros enteros
  begin
    MessageBeep(MB_ICONERROR);
    Key:=#0;
  end;
end;

Si querés ampliar la verificación contemplando que pudieran pegar contenido desde el portapapeles, agrega este código al evento OnExit:

Código Delphi [-]
procedure TForm.EditExit(Sender: TObject);
var
  v: Double;
begin
  if not TryStrToFloat((Sender as TEdit).Text, v) then
  begin
    MessageBeep(MB_ICONERROR);
    (Sender as TEdit).SetFocus;
  end;
end;

Saludos.

[[Caral]]

Hola
Osea: Tarea cumplida.
Saludos Amigo ecfisa

[ecfisa]

Empezado por Caral

Hola
Osea: Tarea cumplida.
Saludos Amigo ecfisa

No puedo con mi genio , siempre me traiciona...

Un abrazo y espero que estes disfrutando esas merecidas vacaciones.

[[Caral]]

Hola
Que va amigo, me queda una semana de trabajo todavía.
Pero gracias por tus sentimientos.
Saludos
Pd: No creas, aveces estar en casa no es nada descansado (pinta aquí, corta el césped, arregla el tubo, lava los coches si esta aburrido )
Estoy casado amigo, recuerda lo .

[dimer18]

les agradezco por su colaboracion..... Por cierto una preguntita mas.. en mi aplicacion cuando la ejecuto una vez me calcula el resutado de las incognitas pero para calcular otra ecuacion tengo que cerrer el programa y volverlo a ejecutar... hay alguna forma de que mi aplicacion se reinicie sin tener que cerrarlo....

[ecfisa]

Hola dimer18.

Por favor poné tu nueva pregunta en un nuevo hilo. (Guía de estilo, punto ocho )

Saludos y gracias por tu colaboración

[PepeLolo]

Empezado por dimer18

hola q tal soy nuevo en el club delphi, bueno toy haciendo una aplicacion para realizar el metodo de gauss seidel en delphi, y bueno yo kiero ingresar valores a una matriz cuando doy clik en un button que se guarde en mi matriz lo que este en la caja de texto , pero kiero validar por medio de un codigo al dar click en el button que solo acepten valores enteros y decimales...... les agradezco por la ayuda que me puedan brindar...

Usa un componente TMaskEdit, en la propiedad "MaskEdit", puedes especificar la mascara que necesitas, de modo que solo acepte los valores que requieres.