GARANTIR DESCONTO

Fórum Letras e números #186384

06/10/2003

0

Delphi

Bom dia colegas.

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

Macario

Responder

Posts

06/10/2003

Beppe 

  if not ((Edit1.SelStart = 0) xor (Key in [´0´..´9´])) then Key := 0;


Tá feito...


Responder

Gostei + 0

06/10/2003

Macario

ATALIBA COMO FAÇO PARA DEIXAR QUE O USUARIO DIGITE O BACKSPACE OU DELETE


Responder

Gostei + 0

06/10/2003

Cebikyn

Basta trocar [´0´..´9´] por [´0´..´9´, #9], se não funcionar com 9 troque por 8, não tenho certeza de qual é.


Responder

Gostei + 0

06/10/2003

Macario

Valeu pessoal funcionou legal :)


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar