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
