Quelle language.pas Sprache: Delphi

//------------------------------------------------------------
//
//
//------------------------------------------------------------
unit Language;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls, StrUtils, WinSock, Registry,
  ShellAPI, Math, DateUtils,Gendefs;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
type
  Naturallanguages=(english,german);
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
function trans(lang:Naturallanguages;n:integer;S:JString):JString;
implementation
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
function trans(lang:Naturallanguages;n:integer;S:JString):JString;
begin
  if lang=english then begin case n of
    1: S:='not yet implemented';
    2: S:='graph incomplete';
    3: S:='graph incomplete';
    4: S:='file number is wrong';
    5: S:='graph is too complex';
    6: S:='block error';
    7: S:='mapping wrong';
    8: S:='block error';
    9: S:='new length set';
   10: S:='cannot process attributes';
   11: S:='cannot create file';
   12: S:='not in this perspective';
   13: S:='please save source';
   14: S:='no printer available';
   15: S:='not at this time';
   16: S:='Only allowd in the source';
   17: S:='Control Flow of ';
   18: S:='Data Flow of ';
   19: S:='line too long';
   20: S:=' line ';
   21: S:='line=';
   22: S:=' column=';
   23: S:='analyzing file';
   24: S:='';
   25: S:='too many color marks in line';
   26: S:=' Do not always say what you know,';
   27: S:=' but always know what you are saying.';
   28: S:='';
   29: S:='';
   30: S:='Save file ';
   31: S:=' be saved?';
   32: S:=' Please switch off Blanks';
   33: S:='Acrobat file (*.pdf)|*.pdf';
   34: S:=' - preparing print...';
   35: S:='%s - print of page %d of %d (%%%d completed)...';
   36: S:='page %d';
   37: S:='the first start takes longer';
   38: S:='execute this file';
   39: S:='execute the predefined batch command';
   40: S:='transferred';
   41: S:='could not connect';
   42: S:='conversion not possible currently';
   43: S:='source files';
   44: S:='not possible for b/w';
   45: S:='not yet possible';
   46: S:='not found';
   47: S:='not found';
   48: S:='process has been cancelled';
   49: S:='please restart program';
   50: S:='read only';
   51: S:='please specify email address';
   52: S:='library too long';
   53: S:='length wrong';
   54: S:='please restart program';
   55: S:='please restart program';
   56: S:='set to default';
   57: S:='license is gone';
   58: S:='license is gone';
   59: S:='key and result';
   60: S:='ley and result';
   61: S:='database not connectable';
   62: S:='database not connectable';
   63: S:='database not connectable';
   64: S:='database not connectable';
   65: S:='sql result wrong';
   66: S:='sql result wrong';
   67: S:='database not connectable';
   68: S:='file corrupt';
   69: S:='cannot process file';
   70: S:='file names will be reset';
   71: S:='file not found';
   72: S:='file type is unknown';
   73: S:='about is impossible';
   74: S:='not possible for the same filename';
   75: S:='invalid export';
   76: S:='invalid export';
   77: S:='not possible';
   78: S:='not possible';
   79: S:='not possible';
   80: S:='not possible';
   81: S:='not possible';
   82: S:='not possible';
   83: S:='not possible';
   84: S:='not possible';
   85: S:='not possible';
   86: S:='not possible';
   87: S:='not possible';
   88: S:='wrong filter';
   89: S:='wrong filter';
   90: S:='error on opening file';
   91: S:='error on opening file';
   92: S:='new length of verticestack';
   93: S:='new length of verticestack';
   94: S:='new length of verticestack';
   95: S:='new length of verticestack';
   96: S:='cannot find node';
   97: S:='new length of verticestack';
   98: S:='solution wrong';
   99: S:='new length of edgestack';
  100: S:='block inconsistent';
  101: S:='fatal error';
  102: S:='unknown extension of file';
  103: S:='library not found';
  104: S:='fatal exception';
  105: S:='library not found';
  106: S:='wrong tree structure';
  107: S:='stackmax reached';
  108: S:='interface corrupt';
  109: S:='wrong tree structure';
  110: S:='font Elbian.ttf not found, please install';
  111: S:='keys differ';
  112: S:='license has expired';
  113: S:='feature only works after registration';
  114: S:='license has expired';
  115: S:='license has expired';
  116: S:='code too long';
  117: S:='string too long';
  118: S:='data unknown';
  119: S:='interface corrupt';
  120: S:='functor tree corrupt';
  121: S:='functor tree wrong';
  122: S:='keymax exceeded';
  123: S:='cannot inquire DNS';
  124: S:='block error';
  125: S:='block error';
  126: S:='block error';
  127: S:='block error';
  128: S:='cannot process file';
  129: S:='cannot process file';
  130: S:='interface corrupt';
  131: S:='too many tree levels';
  132: S:='this is not a network license';
  133: S:='program already runs';
  134: S:='this is not a network license';
  135: S:='helpfile missing';
  136: S:='you need adminstrator''s rights';
  137: S:='you need adminstrator''s rights';
  138: S:='first start';
  139: S:='download program file?';
  140: S:='connect to the internet?';
  141: S:='please focus on element to be printed';
  142: S:='text';
  143: S:='Action can''t be undone. Do replacement?';
  144: S:='Stopped by mouse move';
  145: S:='control flow';
  146: S:='data flow';
  147: S:='number of occurrences:';
  148: S:='doing activation';
  149: S:='cleaning...';
  150: S:='download cancelled';
  151: S:='download not possible';
  152: S:='connection not possible';
  153: S:='The source navigator';
  154: S:='The source detective';
  155: S:='caution, loading this file takes longer than usual';
  156: S:='all files';
  157: S:='execution of';
  158: S:='at';
  159: S:='this is not a transferable license';
  160: S:='rtf format';
  161: S:='error in file associations';
  162: S:='File too large.'+crlf+
          'This is a limited version of '+Application.Title+'.'+crlf
         +' A full license can be obtained under help:get license.';
  163: S:='Limited to a size of:';
  164: S:='Version is up to date ';
  165: S:='binary';
  166: S:='License is valid for';
  167: S:='About ';
  168: S:='file with binary data, search for ?';
  169: S:='wrapped to the beginning';
  170: S:='back to start of file';
  171: S:='obstrous characters';
  172: S:='plain';
  173: S:='modified';
  174: S:='read only';
  175: S:='insert';
  176: S:='replace';
  177: S:='Navigator';
  178: S:='Semantics';
  179: S:='Explorer';
  180: S:='Source';
  181: S:='Cfa';
  182: S:='Dfa';
  183: S:='Measures';
  184: S:='Function';
  185: S:='Miniatur';
  186: S:='Printpreview';
  187: S:='Inspector';
  188: S:='number of replacements:';
  189: S:='not visible';
  190: S:='underlined';
  191: S:='chose directory';
  192: S:='command files (*.bat;*.cmd)|*.bat;*.cmd';
  193: S:='IBM zOS free format';
  194: S:='IBM zOS fixed format';
  195: S:='Fujitsu free format';
  196: S:='Fujitsu fixed format';
  197: S:='none';
  198: S:='color';
  199: S:='black';
  200: S:='current page';
  201: S:='print area';
  202: S:='all';
  203: S:='pages';
  204: S:='from';
  205: S:='to';
  206: S:='copies';
  207: S:='number copies';
  208: S:='OK';
  209: S:='cancel';
  210: S:='location';
  211: S:='cancel';
  212: S:='printer';
  213: S:='name:';
  214: S:='properties...';
  215: S:='status:';
  216: S:='ready';
  217: S:='type:';
  218: S:='comment:';
  219: S:='sort';
  220: S:='Print';
  221: S:='The operation will take some time:';
  222: S:='The operation will take some time:';
  223: S:=' is a READ-ONLY file.';
  224: S:='Do you wish to clear the READ-ONLY flag?';
  225: S:='File is in use by another process.';
  226: S:='Do not always say, what thou knowest.';
  227: S:='But do always know, what thou sayest.';
  228: S:='URLs';
  229: S:='small preview';
  230: S:='page navigator';
  231: S:='large preview';
  232: S:='view and print marked text only?';
  233: S:='excerpt from ';
  234: S:='Word wrap';
  235: S:='yes';
  236: S:='no';
  237: S:=' files';
  238: S:='Indent chars';
  239: S:='Intermediate lines';
  240: S:='without grid';
  241: S:='show grid';
  242: S:='cancel';
  end;
  end;
  // specials multilingual
  case n of
     37: S:='Der erste Start braucht etwas länger ...'+crlf+'The first start takes a little longer ...';
      49,54,55: S:='Bitte neu starten'+crlf+'please restart';
  end;
  if IsDebuggerPresent then
    S:='De'+IntToStr(n)+': '+S;
  trans:=S
end;
end.

quality100%

¤ Dauer der Verarbeitung: 0.14 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.