home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRPT.ZIP / ifpasscript / demo_kylix / subtest.ifs < prev    next >
Text File  |  2001-05-17  |  308b  |  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.