Validación de Datos Numéricos

[TelloClos]

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]

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]

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]

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]

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.