Letras e números
Bom dia colegas.
Minha primeira pergunta nesta semana é a seguinte, com o comando
eu consigo impedir que seja digitado uma letra
agora o que eu to precisando é:
dentro de um Edit ou MaskEdit com no maximo 5 caracter o primeiro nao seja numero e os demais sejam apenas numeros tipo
Ex.:
C0001 // correto
C0C01;;errado
grato pela atenção
[b:33182d9692]Título com letras em maiúsculas editado conforme as regras de conduta. Evite-as.[/b:33182d9692]
Minha primeira pergunta nesta semana é a seguinte, com o comando
If ((Key<´0´) or (Key>´9´)) And(Key<>Chr(8)) Then
Key := Chr(0);
eu consigo impedir que seja digitado uma letra
agora o que eu to precisando é:
dentro de um Edit ou MaskEdit com no maximo 5 caracter o primeiro nao seja numero e os demais sejam apenas numeros tipo
Ex.:
C0001 // correto
C0C01;;errado
grato pela atenção
[b:33182d9692]Título com letras em maiúsculas editado conforme as regras de conduta. Evite-as.[/b:33182d9692]
Macario
Curtidas 0
Respostas
Beppe
06/10/2003
if not ((Edit1.SelStart = 0) xor (Key in [´0´..´9´])) then Key := 0;
Tá feito...
GOSTEI 0
Macario
06/10/2003
ATALIBA COMO FAÇO PARA DEIXAR QUE O USUARIO DIGITE O BACKSPACE OU DELETE
GOSTEI 0
Cebikyn
06/10/2003
Basta trocar [´0´..´9´] por [´0´..´9´, #9], se não funcionar com 9 troque por 8, não tenho certeza de qual é.
GOSTEI 0
Macario
06/10/2003
Valeu pessoal funcionou legal :)
GOSTEI 0