langportuguese.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit langPortuguese;

interface

procedure SetLanguage;

implementation
uses unTranslation;

procedure SetLanguage;
begin
  // Misc strings
  AddStr(   1, 'Escolha "Novo" para criar ou "Abrir" para abrir um arquivo' );
  AddStr(   2, 'OK' );
  AddStr(   3, 'Cancelar' );
  AddStr(   4, '&Help' );
  // unit fmAboutBox
  AddStr( 500, 'Sobre' );
  AddStr( 501, 'por Morgan Martinet (C)1998' );
  AddStr( 502, 'Estes componentes s鉶 Freeware.' );
  AddStr( 503, 'Copyright (C) 1998 by NOMSSI NZALI Jacques H. C.' );
  AddStr( 504, 'Biblioteca pasZLib:' );
  AddStr( 505, '[e-mail] or [e-mail]' );
  AddStr( 506, 'Implementa玢o BlowFish fornecida por Greg Carter, CRYPTOCard' );
  AddStr( 507, 'C骴igo SFX por Oliver Buschjost' );
  AddStr( 508, 'Web site:' );
  // unit fmTiming
  AddStr( 600, 'Tempo decorrido :' );
  AddStr( 601, 'Tempo restante :' );
  // unit fmMain
  AddStr( 700, 'Novo...' );
  AddStr( 701, 'Abrir...' );
  AddStr( 702, '&Adicionar...' );
  AddStr( 703, '&Extrair...' );
  AddStr( 704, 'E&xcluir...' );
  AddStr( 705, '&Interromper' );
  AddStr( 706, 'Novo Arquivo' );
  AddStr( 707, 'Abrir Arquivo' );
  AddStr( 708, 'Adicionar arquivos...' );
  AddStr( 709, 'Extrair arquivos...' );
  AddStr( 710, 'Excluir arquivos...' );
  AddStr( 711, 'Arquivos compactados (*.mmm)|*.mmm|Arquivos SFX (*.exe)|*.exe|Todos (*.*)|*.*' );
  AddStr( 712, 'Arquivos compactados (*.mmm)|*.mmm|Todos (*.*)|*.*' );
  AddStr( 713, 'Abrir um arquivo existente' );
  AddStr( 714, 'Criar um novo arquivo' );
  AddStr( 715, 'Abrir um segmento de um arquivo' );
  AddStr( 718, '%d arquivos(s), %s' );
  AddStr( 720, 'O arquivo "%s", j