Tradução mensagens delphi XE7 / 10Berlin

[Gustavo Agostinho]

Olá pessoal!

O que vocês usando para traduzir as mensagens no delphi XE7 em diante?.

Dei uma procurada no google mas não encontrei as units DbConsts,Consts,ibconst etc para compilar como faziamos no delphi 7.

Obrigado.

 

 

[Juliomar Marchetti]

Crie o seu setresource e indiferente do delphi não vai precisar ficar recompilando os arquivos!

é um exemplo abaixo, mas use o google que vai achar ele completo pra ti usar!

  procedure SetResourceString(xOldResourceString: PResStringRec; xValueChanged: PChar);
  var
    POldProtect: DWORD;
  begin
    VirtualProtect(xOldResourceString, SizeOf(xOldResourceString^), PAGE_EXECUTE_READWRITE, @POldProtect);
    xOldResourceString^.Identifier := Integer(xValueChanged);
    VirtualProtect(xOldResourceString, SizeOf(xOldResourceString^), POldProtect, @POldProtect);
  end;

  SetResourceString(@SMsgDlgWarning, 'Atenção');
  SetResourceString(@SMsgDlgError, 'Erro');

 

[Gustavo Agostinho]

Em 18/07/2016 at 09:35, Juliomar Marchetti disse:

Crie o seu setresource e indiferente do delphi não vai precisar ficar recompilando os arquivos!

é um exemplo abaixo, mas use o google que vai achar ele completo pra ti usar!

  procedure SetResourceString(xOldResourceString: PResStringRec; xValueChanged: PChar);
  var
    POldProtect: DWORD;
  begin
    VirtualProtect(xOldResourceString, SizeOf(xOldResourceString^), PAGE_EXECUTE_READWRITE, @POldProtect);
    xOldResourceString^.Identifier := Integer(xValueChanged);
    VirtualProtect(xOldResourceString, SizeOf(xOldResourceString^), POldProtect, @POldProtect);
  end;

  SetResourceString(@SMsgDlgWarning, 'Atenção');
  SetResourceString(@SMsgDlgError, 'Erro');

Show de bola Juliomar! Já implementei aqui. Valeu!

 

[walter faria]

Bom dia,

Estou migrando também meu delphi, onde posso utilizar esta função?
Obrigado

[Pedro_Manoel]

Olá pessoal eu sei que faz um tempo que não movimenta este tópico.

Criei esta unit e funciona muito bem mas estou fazendo um app e preciso traduzir as mensagens e eu não consigo usar a mesma unit.

Alguém consegue me dar uma dica.

Desde já agradeço.