Preciso montar uma Function que diz se, em uma string, existe um caracter especial (@, !, #, $ Etc...) Baseado em um evento que desenolví através do Método KeyPress do Form, Fiz a seguinte Verificação só que, através de um Botão:
Procedure TForm1.Button1Click(Sender: TObject); var wKey : Char ; i : Integer ; begin for i:=1 to Length(Edit1.Text) do begin wKey := Char( Pchar ( Copy(Edit1.Text, i, 1 ))); if (wKey in ['!'..'/']) or (wKey in [':'..'@']) or (wKey in ['['..'_']) or (wKey in ['{'..'~']) then begin ShowMessage('É Um Caracter Especial !'); end; end; end; Acontece que não funciona, pelo visto o problema está nos tipos de variáveis (Char X PcharX String) Alguém teria alguma dica para que funcione este algorítimo ?? [ ]'s _______________________________________________________ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- <<<<< 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] ou [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