If (Key=#44) and (Pos(',',Edit1.Text)>0) then
Key:=#0;
t+
Alcir Alexandre
João S. Araújo escreveu:
> Olá Alisson,
>
> na verdade o que eu preciso é de alguma função impeça que o usuáiro digite
> a (,) duas vezes em campos do tipo currency. De qualquer forma sua dica foi
> 10. Vou tentar adaptar alguma coisa aqui e ver o que acontece.
>
> Obrigado
>
> João
> ----- Original Message -----
> From: "Alisson Yahoo" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Monday, October 30, 2006 9:42 AM
> Subject: Re: [delphi-br] Bloquear caracteres repetidos
>
>
> Que coisa mais estranha! Pra que você quer isso? Se você bloquear caracteres
> repetidos como vai escrever palavras com letras dobradas? Ex.: Carro, passo,
> cooperar, vêem, caatinga. Mas se quiser fazer isso mesmo assim, basta
> verificar se a letra anterior é igual à digitada. Em um edit, por exemplo,
> ficaria assim:
>
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
> if (Length(Edit1.Text) > 0) then
> if (Edit1.Text[Length(Edit1.Text)] = Key) then
> Key := #0;
> end;
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
