Função nao funciona mais

14/08/2004

2

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?


Responder

Posts

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar