Não sou o Daniel, mas acho que a resposta deve servir...
* Pos é uma _função_ (não comando interno) que retorna a posição de um
subconjunto num conjunto de caracteres.
* "E" é um objeto da classe TException. Com 90% de certeza dá para afirmar que
este código que o Daniel te passou está dentro de um bloco Try...Except; o erro
que vc teve muito provavelmente aponta a linha com "E.Message" e diz que este
objeto não está declarado.
Amigo, sem querer ofender, mas o Help do Delphi ajuda muito nesses casos. Use-o
SEM MODERAÇÃO.
[]'s
Ricardo.
_________________________________________________________________
"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"
--- Em qui, 5/2/09, Bruno Lepesqueur <brunolbra...@yahoo.com.br> escreveu:
Daniel, me desculpe as perguntas bobas, mas nesse "if Pos" o Pos é
algum
comando interno?
Copiei tudo q vc me passou e joguei no delphi, mas ele deu erro no E.Message
Esse é tb é um comando interno?
Obrigado!
-------Mensagem original---- ---
De: Daniel Sobrinho Laporte
Data: 04/02/2009 21:33:25
Para: delphi...@yahoogrup os.com.br
Assunto: Re: Re: Re: [delphi-br] Erro qdo campo Null
Todos os créditos que vou colocar aqui são do seu xará o mestre Bruno Lichot
de uma olhada nos exemplos dele que você vai entender melhor no final tem o
link dele para você baixar exemplos que serão bem úteis ao seu aprendizado e
dúvidas..
Abraços,
Daniel.
*> //algumas informações que podem ser obtidas do application}
>
> //Sugestao de tratamento de erro de campo não preenchido e valores
> invalidos
> if Pos(UpperCase( 'must have a value'), UpperCase(E. Message)) <> 0 then
> begin
> Pos1:=Pos('' '', E.Message);
> mensagem:=E. Message;
> Delete(mensagem, Pos1, 1);
> Pos2:=Pos('' '', mensagem);
> mensagem:=copy( E.Message, Pos1 + 1, Pos2 - Pos1);
> mensagem := 'É obrigatório o preenchimento do campo '+ mensagem + '.';
> showmessage( mensagem) ;
> end
> Bruno Lichot - HTTP://cc.codegear. com/author/ 795118*
__._,_.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
