home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / ctest3.ifs < prev    next >
Text File  |  2001-03-28  |  255b  |  22 lines
  1. Program IFSTest;
  2. type
  3.   TProcedure = procedure;
  4. var
  5.   Proc:  TProcedure;
  6. procedure p1;
  7. begin
  8.   writeln('p1');
  9. end;
  10. procedure p2;
  11. begin
  12.   writeln('p2');
  13. end;
  14. procedure p3;
  15. begin
  16.   writeln('p3');
  17. end;
  18.  
  19. Begin
  20.   Proc := @p1;
  21.   Proc^;
  22. End.