Como utilizar strings de recurso em suas aplicações?

{A utilização de strings de recurso em suas aplicações é muito fácil e de grande portabilidade. Ao utilizá-las, você terá as seguintes vantagens: - Todos os programas que compõem a sua aplicação poderão utilizá-las sem necessitarem ser reescritos, assim, você ganha tempo, padronização no seu código, além de ser uma prática estruturada.

- Você poderá internacionalizar sua aplicação a partir das strings de recurso que você definiu.

- As mensagens podem ser formatadas para receberem parâmetros, aumentando ainda mais a padronização e estruturação do seu código.

Passos para a definição de strings de recurso

- Crie uma unit que conterá todas as suas strings de recurso.(você também pode adicionar todas as constantes da sua aplicação na seção Const).

- Na seção interface, utilize a palavra reservada resourcestring.

- Defina as constantes na forma de pares nome_identificador = valor da string;. É uma boa prática utilizar o prefixo S para definir strings de recurso.}


unit Constantes;

interface
const
// geral
appRegisterValue = 99.00;
// Fluxo de caixa
rgFluxoDataLimite = 'Data limite';
rgFluxoSaldoCaixa = 'Saldo em caixa';
// contas orçamentárias
tvSep = ' - ';
// diretório de figuras para os gráficos (logomarca, etc...)
chtPicturePath = 'Imagens dos gráficos';

resourcestring
// strings de recurso
// geral
// string simples
SFechandoFilhas = 'Fechando janelas filhas abertas da aplicação...';
// string com parâmetro
SInsercaoInvalida = 'Não será possível adicionar mais registros de %s.';
// acesso
SInterfaceInserir = 'Adicionar novos registros de %s';
SInterfaceEditar = 'Alterar registros de %s cadastrados';
SInterfaceApagar = 'Apagar registros de %s cadastrados';

implementation
end. {Como utilizar as strings de recurso:

Quando você desejar utilizar strings de recurso simples, simplesmente adicione-as onde for necessário.}


raise EDatabaseError.Create(SFechandoFilhas);
ShowMessage(SFechandoFilhas); {Quando desejar utilizar strings de recurso com parâmetros, utilize a função Format fornecendo como parâmetros, os valores que você deseja exibir na forma de array de argumentos.}


raise EDatabaseError.CreateFmt(SInsercaoInvalida, ['clientes']); >> saída >> 'Não será possível adicionar mais registros de clientes'

// observação: aqui não há a necessidade de utilizar a função Format porque o método

// CreateFmt já requer dois parâmetros para a criação de uma exceção.


ShowMessage(Format(SInsercaoInvalida, ['clientes'])); { >> saída >> 'Não será possível adicionar mais registros de clientes'

Para saber mais sobre a formatação de strings, procure no help do Delphi por Format strings.}