home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRPT.ZIP / ifpasscript / demo_del / tryexcept.ifs < prev    next >
Text File  |  2001-06-06  |  509b  |  33 lines
  1. Program IFSTest;
  2. const
  3.   test = 0; 
  4.   // there are 3 tests, 0,1 and 2.
  5. Begin
  6.   if test=1 then
  7.   begin
  8.     try
  9.       writeln('1');
  10.       writeln(1/0);
  11.     finally
  12.       writeln('2');
  13.     end;
  14.     writeln('3');
  15.   end else if test = 2 then begin
  16.     try
  17.       writeln('1');
  18.       writeln(1/0);
  19.     except
  20.       writeln('2');
  21.     end;
  22.     writeln('3');
  23.   end else begin
  24.     try
  25.       writeln('1');
  26.       exit;
  27.     finally
  28.       writeln('2');
  29.     end;
  30.     writeln('3');
  31.   end;
  32. End.
  33.