home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo_kylix / casetest.ifps3 < prev    next >
Text File  |  2002-05-23  |  173b  |  12 lines
  1. Program IFSTest;
  2. var
  3.   b: Byte;
  4. Begin
  5.   for b := 0 to 2 do begin
  6.   case b of 
  7.     0: writeln('0');
  8.     1: writeln('1');
  9.     else writeln('>1');
  10.   end;
  11.   end;
  12. End.