Beleza, testei e aparentemente funciona OK ! Obrigado. []'s ----- Original Message ----- From: <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Thursday, August 25, 2005 2:26 PM Subject: Re: [delphi-br] ACHAR CARACTER ESPECIAL em uma STRING
Olá Rogerio segue o seu exemplo usandoo uma function que retorna True se o caracter informado for especial quanquer duvida entre em contato obs. nao deu tempo para testar. Procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:=1 to Length(Edit1.Text) do begin if IsCharEspec( Copy(Edit1.Text, i, 1 )) then begin ShowMessage('É Um Caracter Especial !'); end; end; end; function IsCharEspec( Str: String):Boolean; Var aChar:PChar; Const CharEspc: set of Char = [#0..#255] - ['a'..'z','A'..'Z','1'..'9','0']; begin aChar := pChar( Str ); Result := False; if ((aChar^ in CharEspc)) then Result := True; end; T+ Sandro Garcia ----- Original Message ----- From: Rogério To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 25, 2005 1:43 PM Subject: [delphi-br] ACHAR CARACTER ESPECIAL em uma STRING 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] Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos _______________________________________________________ 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