products/sources/formale sprachen/Delphi/Bille 0.71/__history/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: dir.bat   Sprache: BAT

Untersuchungsergebnis.~4~ Download desCS {CS[93] Ada[132] Abap[1309]}zum Wurzelverzeichnis wechseln

unit Language;

interface

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

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

//-------------------------------------------------------------
//ShowMe
//error reporting
//-------------------------------------------------------------
Procedure errorn(n: integer; S,E: String);
begin
  errorcount := errorcount + 1;
  S := inttostr(n mod 1000) + ': ' + S;
  ShowMessage(trans(n, S,E));
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.

[ zur Elbe Produktseite wechseln0.99Quellennavigators  ]