home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / UNITS / LangValMessages.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-13  |  1.2 KB  |  48 lines
  1. unit LangValMessages;
  2. { Exception for LangValue}
  3. interface
  4. uses SysUtils;
  5. procedure CantBeSTring;
  6. procedure CantBeInteger;
  7. procedure CantBeBoolean;
  8. procedure CantBeVariant;
  9. procedure CantBeFloat;
  10. procedure ContainsNoValues;
  11. procedure NotExecutable;
  12. procedure NeedParameter;
  13. implementation
  14. uses LangValMsgs;
  15. procedure CantBeSTring;
  16.           begin
  17.             raise Exception.CreateRes(serrCantBeSTring);
  18.           end;
  19. procedure CantBeInteger;
  20.           begin
  21.             raise Exception.CreateRes(serrCantBeInt);
  22.           end;
  23. procedure CantBeBoolean;
  24.           begin
  25.             raise Exception.CreateRes(serrCantBeBool);
  26.           end;
  27. procedure CantBeVariant;
  28.           begin
  29.             raise Exception.CreateRes(serrCantBeVar);
  30.           end;
  31. procedure CantBeFloat;
  32.           begin
  33.             raise Exception.CreateRes(serrCantBeFloat);
  34.           end;
  35. procedure ContainsNoValues;
  36.           begin
  37.             raise Exception.CreateRes(serrNoValues);
  38.           end;
  39. procedure NotExecutable;
  40.           begin
  41.             raise Exception.CreateRes(serrNotExecutable);
  42.           end;
  43. procedure NeedParameter;
  44.           begin
  45.             raise Exception.CreateRes(serrNeedParameter);
  46.           end;
  47. end.
  48.