Função nao funciona mais

Delphi

14/08/2004

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]);
    Texto := StringReplace(Texto,´Field´,´O Campo ´,[rfReplaceAll,rfIgnoreCase]);
    MessageDlg(texto,mtWarning,[mbok],0);
  end
  else
    MessageDlg(E.Message,mtWarning,[mbok],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

Rafaelunp

Curtidas 0
POSTAR