langfrench.pas

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

unit langFrench;

interface

procedure SetLanguage;

implementation
uses unTranslation;

procedure SetLanguage;
begin
  // Misc strings
  AddStr(   1, 'Choisissez "Nouveau" pour cr閑r ou "Ouvrir" pour ouvrir une archive' );
  AddStr(   2, 'OK' );
  AddStr(   3, 'Annuler' );
  AddStr(   4, 'Aide' );
  // unit fmAboutBox
  AddStr( 500, 'A propos' );
  AddStr( 501, 'par Morgan Martinet (C)1998' );
  AddStr( 502, 'Ces Composants sont Freeware.' );
  AddStr( 503, 'Copyright (C) 1998 par NOMSSI NZALI Jacques H. C.' );
  AddStr( 504, 'librairie pasZLib :' );
  AddStr( 505, '[e-mail] ou [e-mail]' );
  AddStr( 506, 'Impl閙entation BlowFish fournie par Greg Carter, CRYPTOCard' );
  AddStr( 507, 'Code SFX par Oliver Buschjost' );
  AddStr( 508, 'Site Web :' );
  AddStr( 509, 'OK' );
  // unit fmTiming
  AddStr( 600, 'Temps 閏oul