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

Respostas

14/08/2004

Rafaelunp

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...


Responder Citar