Array
(
)

Função nao funciona mais

Rafaelunp
   - 14 ago 2004

Amigos,

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

#Código

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?