home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / ilibtest.ifs < prev    next >
Text File  |  2001-04-20  |  182b  |  10 lines
  1. Program IFSTest;
  2. uses 
  3.  ilib;
  4. Begin
  5.   writeln(inttostr(TestVal));
  6.   TestVal := TestVal + 1;
  7.   writeln(inttostr(TestVal));
  8.   Writeln(Test);
  9.   Writeln(IntToStr(TestVal));
  10. End.