Buscar por:

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

Código

{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.}