• Sábado 20 de Julio de 2024, 09:44

Autor Tema:  Validacion  (Leído 1374 veces)

Ac1d0

  • Nuevo Miembro
  • *
  • Mensajes: 14
    • Ver Perfil
Validacion
« en: Sábado 20 de Mayo de 2006, 00:50 »
0
quisiera que me ayudaran a validar cunatos tigitos y ke digitos meter en un edit y para validar un maskedit tipo datetime

zeraf_

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Re: Validacion
« Respuesta #1 en: Martes 6 de Junio de 2006, 05:17 »
0
:hola: En el evento KeyPress del Edit puede validar que conjunto de teclas desea que sean admitidas, aunque con Shift+Insert se puede pegar lo que hay en el portapapeles de Windows.

Por ejemplo, para que solo sean admitidas las teclas "0123ABCDabcd"
Código: Text
  1. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  2. begin
  3.   if StrScan('0123ABCD', UpCase(key)) = nil then
  4.     Key := #0;
  5. end;
  6.  

La longitud la puedes validar con la propiedad MaxLength del TEdit.

 :scream: