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?


Rafaelunp
   - 14 ago 2004

Esqueci de comentar!

Meu intuito é fazer com que seja exibido um aleta para todos os campos que forem requeridos mas nao forem preenchidos pelo usuario...

Atualemente essa funcao nao dá erro na aplicação, mas também nao mostra nenhuma mensagem.... o usuario nao consegue salvar, mas nao mostra o erro...