home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_del / looptest.ifs < prev    next >
Text File  |  2001-06-01  |  120b  |  11 lines
  1. Program IFSTest;
  2. var
  3.   i : Longint;
  4. Begin
  5.   i := 0;
  6.   while i < 10000 do 
  7.   begin
  8.    i := i + 1;
  9.   end; 
  10. End.
  11.