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

Respostas

Rafaelunp

Rafaelunp

14/08/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...


GOSTEI 0
POSTAR