home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_del / subtest.ifs < prev    next >
Text File  |  2001-05-24  |  309b  |  14 lines
  1. Program IFSTest;
  2. function test(val: Longint): Longint;
  3. begin
  4.   writeln(inttostr(val));
  5.   val := val + 1;
  6.   test := test(val); 
  7. end;
  8. Begin
  9.   test(1);  // never run without MaxBeginNesting set to a low value.
  10. {
  11.   Last value printed is 999, and that's OK since main Begin end is also counted
  12. }
  13. End.
  14.