sgcLocalization. 1 つの翻訳エディター。 実行時に 1 行で切り替え。

uses
  sgcLocalization_Engine;

procedure TfrmMain.ShowSelection(aCount: Integer);
begin
  // アプリケーション全体をドイツ語に切り替える
  sgcSetLanguage('de');

  // コードで作られるテキスト
  ShowMessage(sgcT('The order has been saved.'));

  // 独自の翻訳が必要な同じ単語には、コンテキストを付ける
  lblState.Caption := sgcTC('order status', 'Open');

  // 複数形: 現在の言語で aCount に合う形
  lblCount.Caption := Format(sgcTN('%d order selected',
    '%d orders selected', aCount), [aCount]);
end;