unit Language;

interface

uses
  //-------------------------------------------------------------------------
  //local
  //-------------------------------------------------------------------------
  GenDefs,
  //-------------------------------------------------------------------------
  //global
  //-------------------------------------------------------------------------
  SysUtils, Dialogs, Windows;

function trans(n: integer; S: String;E:String=''): String;
procedure errorn(n: integer; S: String;E:String='');

 type
   Naturallanguages = (english, german, l1, l2, l3, l4, l5, l6, l7, l8, l9, l10);
  TransDL = array of String;

var
  errorcount: integer;
  lang: Naturallanguages;
  DL: TransDL;

implementation

//-------------------------------------------------------------
//
//error reporting
//-------------------------------------------------------------
Procedure errorn(n: integer; S,E: String);
begin
  errorcount := errorcount + 1;
  if errorcount<10 then begin
    //S := inttostr(n mod 1000) + ': ' + S;
    ShowMessage(trans(n, S,E));
  end else  begin
    ShowMessage('Please restart');
    ExitProcess(0)
  end;
end;

//-------------------------------------------------------------------------
//
//-------------------------------------------------------------------------
function trans(n: integer; S,E: String): String;
var
  ll: integer;
  BN: String;
begin
  BN := IntToStr(n);
  if (lang = english) then begin
    S := 'untranslated bug ' + BN;
    ll := length(DL);
    if (ll > 0) and (n < length(DL)) then
      S := DL[n];
    //case n of
      //1: S := 'I have control again.';
      //37: S := 'Der erste Start braucht etwas länger ...' + String(crlf) +
      //    'The first start takes a little longer ...';
      //49, 54, 55: S := 'Bitte neu starten' + String(crlf) + 'please restart';
      //138: S := 'first start';
    //end;
  end;
  //if IsDebuggerPresent then
  //S := 'De' + inttostr(n) + ': ' + S;
  trans := trim(S)+E
end;

end.