Record com Strings de Mensagens

Delphi

22/06/2005

Salve!
Pretendo montar um registro com mensagens de erro tipo

´Deseja excluir o registro?´
´Salvar alterações?´
´Erro ao tentar gravar os dados´
etc...

eu gostaria de criar um registro com essas mensagens pois assim eu poderia acessá-las da seguinte forma:

MessageDlg(Mensagens.ErroCommit,mtError,[mbOk],0);

// ou

if (MessageDlg(Mensagens.Salvar,mtConfirmation,[mbYes,mbNo],0) = ...
...


Essas strings poderiam ser constantes, mas não consigo implementar o registro com constantes.

Alguém pode dar um esclarecimento?
Abraços,


Eniorm

Eniorm

Curtidas 0

Respostas

Andremuller

Andremuller

22/06/2005

Você vai ter que declarar uma variável com o tipo do registro e atribuir as mensagens.

O que também daria pra fazer seria criar constantes direto, sem o registro.

Outra alternativa seria criar uma classe com as mensagens e propriedades com o tipo da mensagem, por exemplo, então no GetPropriedade Result receberia a mensagem.

Essas são algumas alternativas


GOSTEI 0
POSTAR