ResourceString em Delphi - Parte I

Olá galera, nesta Quick Tips, irei mostrar uma recurso do Delph, o ResourceString.

Mas o que seria o ResourceString?

Funcionam basicamente como constantes, porém sua declaração como com a palavra resourcestring, esta serve para trabalharmos com mensagens predefinidas, veja alguns exemplos que temos na unit const, do Delphi:

resourcestring

SOpenFileTitle = 'Open';

SCantWriteResourceStreamError = 'Can''t write to a read-only resource stream';

SDuplicateReference = 'WriteObject called twice for the same instance';

SClassMismatch = 'Resource %s is of incorrect class';

SInvalidTabIndex = 'Tab index out of bounds';

SInvalidTabPosition = 'Tab position incompatible with current tab style';

SInvalidTabStyle = 'Tab style incompatible with current tab position';

SInvalidBitmap = 'Bitmap image is not valid';

SInvalidIcon = 'Icon image is not valid';

SBoldItalicFont = 'Bold Italic';

SBoldFont = 'Bold';

SItalicFont = 'Italic';

SRegularFont = 'Regular';

Temos muitas units em Delphi, que possuem resourcestring, como por exemplo, corbcnst, midconst, mxconsts, comconst, webconst, ibconst, bdeconst, comstrs, consts.

Veja um exemplo prático utilizando Resourcestring;

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

resourcestring

  sMensagemBemVindo = 'Seja bem vindo';

  sMensagemSair = Volte sempre';

  sMensagemErro = Um erro aconteceu';

  sMensagemAtencao = 'Atenção';

  sMensagemErroConectarBD = 'Erro ao conectar base de dados';

  sMensagemErroForm = ‘Erro ao criar formulário';

type

  TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

  private

{ Private declarations }

  public

{ Public declarations }

  end;

var

  Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

  ShowMessage(sMensagemBemVindo);

  ShowMessage(sMensagemSair);

  ShowMessage(sMensagemErro);

  ShowMessage(sMensagemAtencao);

  ShowMessage(sMensagemErroConectarBD);

  ShowMessage(sMensagemErroForm);

end;

end.

Sendo assim toda vez que quisermos exibir a mensagem de ‘Seja bem Vindo’, basta utilizar a resourcestring sMensagemBemVindo. Assim como mostrado a execução dos resourcestring definidos nesta unit, podemos também executar os que existem no Delphi, da mesma maneira.

Fico por aqui ate à próxima Quick Tips, onde veremos como podemos traduzir as mensagens do Delphi.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br