{***********************************************************
                R&A Library
       Copyright (C) 1996-2000 R&A

       description : Language specific constant for German

       author      : Andrei Prygounkov
       e-mail      : a.prygounkov@gmx.de
       www         : http://ralib.hotbox.ru
************************************************************}

{$INCLUDE RA.INC}

unit RAI2Const;

interface

const

{RAI2Parser}
 {$IFDEF RA_D}
  StIdSymbols      = ['_', '0'..'9', 'A'..'Z', 'a'..'z'];
  StIdFirstSymbols = ['_', 'A'..'Z', 'a'..'z'];
  StConstSymbols   = ['0'..'9', 'A'..'F', 'a'..'f'];
  StConstSymbols10 = ['0'..'9'];
  StSeparators     = ['(', ')', ',', '.', ';'];
 {$ENDIF RA_D}
 {$IFDEF RA_B}
  StIdSymbols      = '_0123456789QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm';
  StIdFirstSymbols = '_QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm';
  StConstSymbols   = '0123456789ABCDEFabcdef';
  StConstSymbols10 = '0123456789';
  StSeparators     = '(),.;';
 {$ENDIF RA_B}

 {RAI2Fm}
  SNoReportProc = 'Procedure "RAI2RunReportPreview" not found';
  SNoReportProc2 = 'Procedure "RAI2RunReportPreview2" not found';

 {RAI2 Error Descriptions}
  RAI2Errors : array [0..47] of
    record
      ID: Integer;
      Description: String;
    end
    = (
      (ID:   0; Description: 'Ok'),
      (ID:   1; Description: 'Unbekannter Fehler'),
      (ID:   2; Description: 'Interner Fehler: %s'),
      (ID:   3; Description: 'Benutzerunterbrechung'),
      (ID:   4; Description: 'Wiederhervorrufen einer Exception ist nur im Exception-Handler möglich'),
      (ID:   5; Description: 'Fehler in Unit ''%s'' in Zeile %d: %s'),
      (ID:   6; Description: 'English: External error in unit ''%s'' on line %d : %s'),
      (ID:   7; Description: 'English: Access denied to ''%s'''),
      (ID:  31; Description: 'Record ''%s'' nicht definiert'),

      (ID:  52; Description: 'Speicherüberlauf'),
      (ID:  53; Description: 'Ungültige Typumwandlung'),
      (ID:  55; Description: 'Funktion ''main'' nicht definiert'),
      (ID:  56; Description: 'Unit ''%s'' nicht gefunden'),
      (ID:  57; Description: 'Ereignis ''%s'' nicht registriert'),
      (ID:  58; Description: 'Dfm ''%s'' not found'),

      (ID: 101; Description: 'Fehler im Kommentar'),
      (ID: 103; Description: '%s erwartet aber %s gefunden'),
      (ID: 104; Description: 'Undefinierter Bezeichner ''%s'''),
      (ID: 105; Description: 'Ausdruckstyp muss BOOLEAN sein'),
      (ID: 106; Description: 'Klassentyp erwartet'),
      (ID: 107; Description: ''';'' nicht erlaubt vor einem ELSE'),
      (ID: 108; Description: 'Ausdruckstyp muss INTEGER sein'),
      (ID: 109; Description: 'Record, Object oder Klassentyp erforderlich'),
      (ID: 110; Description: 'Operator oder Semikolon fehlt'),
      (ID: 111; Description: 'Bezeichner redefiniert: ''%s'''),

      (ID: 171; Description: 'Array-Index ausserhalb des gültigen Bereichs'),
      (ID: 172; Description: 'Zu viele Array-Bereiche'),
      (ID: 173; Description: 'Nicht genügend Array-Bereiche'),
      (ID: 174; Description: 'Ungültige Array-Dimension'),
      (ID: 175; Description: 'Ungültiger Array-Bereich'),
      (ID: 176; Description: 'Arraytyp erwartet'),

      (ID: 181; Description: 'Zu viele Parameter'),
      (ID: 182; Description: 'Nicht genügend wirkliche Parameter'),
      (ID: 183; Description: 'Inkompatible Typen: ''%s'' und ''%s'''),
      (ID: 184; Description: 'Fehler beim Laden der Bibliothek ''%s'''),
      (ID: 185; Description: 'Falscher Argumententyp im Aufruf der Funktion ''%s'''),
      (ID: 186; Description: 'Falscher Ergebnistyp im Aufruf der Funktion ''%s'''),
      (ID: 187; Description: 'Auf Prozessadresse der Funktion ''%s'' kann nicht zugegriffen werden'),
      (ID: 188; Description: 'Falscher Argumententyp im Aufruf der Funktion ''%s'''),
      (ID: 189; Description: 'Falscher Ergebnistyp im Aufruf der Funktion ''%s'''),
      (ID: 190; Description: 'Ungültige Aufrufkonvention der Funktion ''%s'''),

      (ID: 201; Description: 'Aufruf von ''%s'' verfehlt: ''%s'''),

      (ID: 301; Description: 'Ausdruck'),
      (ID: 302; Description: 'Bezeichner'),
      (ID: 303; Description: 'Deklaration'),
      (ID: 304; Description: 'Dateiende'),
      (ID: 305; Description: 'class declaration'),

      (ID: 401; Description: 'Implementation der Unit nicht gefunden')
    );

implementation

end.
