Mudar Mensagem

[tux_boy]

Quando se tenta cadastrar um registro cujo codigo já exista, o sistema xibe a mensagem "Key Violation".

Gostari de saber se é possive alterar essa mensagem!

[Micheus]

Quando se tenta cadastrar um registro cujo codigo já exista, o sistema xibe a mensagem "Key Violation".

Gostari de saber se é possive alterar essa mensagem!

tux_boy, uma alternativa, enquanto não aparecer outra seria:

begin
 ...
  try
    TabelaTal.Post;
  except
    on E:EDatabaseError do
    begin
      if Pos('KEY VIOLATION', UpperCase(E.Message)) > 0 then
        E.Message := 'Esta informação já está cadastrada!';

      raise;
    end;
  end;
end;

este é um método. O que fazemos é:

- interceptar uma exceção através do bloco try..except..end;

- no caso de uma exceção no banco de dados (EDatabaseError), verificamos a mensagem. Se for a procurada, trocamos o texto da mensagem;

- na seqüência, forçamos a continuação da exceção pela chamada de Raise. Se ele não estivesse presente, nenhuma mensagem de erro seria apresentada.

Abraços