home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_del / enumtest.ifs < prev    next >
Text File  |  2001-07-10  |  103b  |  7 lines
  1. Program IFSTest;
  2. type
  3.   x = (cl1, cl2, cl3, cl4, cl5);
  4. Begin
  5.   writeln(inttostr(ord(cl1)));
  6. End.
  7.