home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / gsdb25.arj / GS_ERROR.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-07  |  2KB  |  64 lines
  1. unit GS_Error;
  2. interface
  3. uses
  4.    Crt, Dos, GS_KeyI, GS_Winfc;
  5.  
  6. type
  7.    ErrRec = Record
  8.                ErrNum : integer;
  9.                ErrStr : String[60];
  10.             End;
  11.  
  12. const
  13.    ErrCnt = 9;
  14.    ErrLst : array[1..ErrCnt] of ErrRec = (
  15.       (ErrNum : 501;
  16.        ErrStr : 'Error in GS_DB_IX numeric or date key field'),
  17.       (ErrNum : 601;
  18.        ErrStr : 'Error in GS_dBase formula assignment'),
  19.       (ErrNum : 602;
  20.        ErrStr : 'Error in GS_dBase FieldGet name assignment'),
  21.       (ErrNum : 603;
  22.        ErrStr : 'Error in GS_dBase FieldGetN number assignment'),
  23.       (ErrNum : 604;
  24.        ErrStr : 'Error in GS_dBase FieldPut name assignment'),
  25.       (ErrNum : 605;
  26.        ErrStr : 'Error in GS_dBase FieldPutN number assignment'),
  27.       (ErrNum : 710;
  28.        ErrStr : 'Error in pointer for editor line'),
  29.       (ErrNum : 901;
  30.        ErrStr : 'Error in GS_dB_Tb index file assignment'),
  31.       (ErrNum : 902;
  32.        ErrStr : 'Error in GS_dB_Tb field name assignment')
  33.             );
  34.  
  35.  
  36.  
  37. PROCEDURE ShowError(num : integer; st : string);
  38.  
  39. implementation
  40. var
  41.    ErrorWin : GS_Wind_Objt;
  42.    ch       : Char;
  43.  
  44. Procedure ShowError(Num : integer; st : string);
  45. var
  46.    i : integer;
  47. begin
  48.    write;
  49.    ErrorWin.SetWin;
  50.    writeln('Error ',num);
  51.    for i := 1 to ErrCnt do
  52.    begin
  53.       if ErrLst[i].ErrNum = Num then
  54.          writeln(ErrLst[i].ErrStr);
  55.    end;
  56.    writeln(st);
  57.    ch := GS_KeyI_GetKey;
  58.    ErrorWin.RelWin;
  59. end;
  60.  
  61. begin
  62.    ErrorWin.InitWin(8,10,73,16,Yellow,Black,Yellow,Black,Yellow,
  63.                     True,'[ ERROR ]',True);
  64. end.