14/08/2004

Função nao funciona mais

Amigos,

Estou usando a funcao abaixo em um application events no meu datamodule:

  if pos(´must have a value´,E.Message) > 0 then
  begin
    Texto := StringReplace(E.Message,´must have a value´,´ precisa ter um valor.´,[rfReplaceAll,rfIgnoreCase&93;);
    Texto := StringReplace(Texto,´Field´,´O Campo ´,&91;rfReplaceAll,rfIgnoreCase&93;);
    MessageDlg(texto,mtWarning,&91;mbok&93;,0);
  end
  else
    MessageDlg(E.Message,mtWarning,&91;mbok&93;,0);


Mas ela nao está funcionando....
Tenho certeza q ela funcionava, pelo menos em outro projeto q eu usava, ela estava OK... a unica diferença aparente é q o projeto era com SQL Server e esse atual é em IB...

Qual será o problema?


Rafaelunp