|
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.
[ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet)
]
|
