Não mudou não, essas linhas estão dentro do evento onException do
ApplicationEvents?
Em 13/02/08, ca_programador007 <[EMAIL PROTECTED]> escreveu:
>
> Olá amigos,
> Utilizava o componente ApplicationEvents para tratar os erros no Delphi 7,
> e tentei copiar e colar a mesma procedure no Delphi 2007 e dá erro.. ele não
> reconhece o "E.Message" e o "Pos". Mudou alguma coisa do Delphi 7 para o
> Delphi 2007?
>
> begin
> if Pos(UpperCase('is not a valid date'), UpperCase('E.Message'))>0 then
> begin
> showMessage('A data digitada não é válida. Tente novamente com outra
> data.');
> end;
> if pos(upperCase('violation of primary or unique key constraint'),
> UpperCase(E.Message)) > 0 then
> begin
> beep;
> showmessage('O valor digitado para o campo já existe no cadastro.');
> Exit;
> end;
> end;
>
> Obrigado, Carlos
>
> ---------------------------------
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
