PDA

Ver la Versión Completa : Validación de Datos Numéricos


TelloClos
02-07-2003, 18:33:42
Hola!

como podria validar al leer el contendio de una caja de texto que este solo este compuesto de números, antes de utilizar esta información.
- por ejemplo si este fuera un rut ded cliente el cual lo voy a entregar de parametro a un porcedimiento almacenado, si este texto lleva entre medio una letra el sistema me lanza una excepción que procova obviamente la caida de mi aplicación.

en visual basic existe una función que es ISnumeric(texto) que me válida esta situación, pero en delphi desconosco la existencia de alguna función similar, esta por lo menos no la reconoce.

de ante mano muchas gracias!

Gisela
02-07-2003, 21:18:31
Hola.
¿No te sirve usar el MaskEdit para ingresar los datos? Si hacés clic derecho en el objeto y elegís la opción "Input Mask Editor", podés determinar cuales serán los caracteres admitidos.

Saludos

Gisela

marcoszorrilla
02-07-2003, 22:23:26
Pon este código en el evento OnKeyPress de tu TEdit y sólo admitirá números:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) then { BackSpace Key }
begin
{Aqui tu tratamiento normal del evento}

end
else
Key := #0;
end;


Un Saludo.

TelloClos
02-07-2003, 23:27:33
Muchas gracias por la ayuda!!


estuve viendo las 2 alternativas
para el caso, me sirvio mas la segunda ya que es: buena,bonita y barata

trianazac
05-12-2007, 03:40:44
:)Muchas gracias por esta informaciòn ya que a mi tambien me fue de mucha utilidad el aver encotnrado estas formas de evitar introducir letras en campos numèricos.

muchas gracias.:D