home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / ctest4.ifs < prev    next >
Text File  |  2001-03-28  |  304b  |  21 lines
  1. Program IFSTest;
  2. type
  3.   TProcedure = procedure(s: string) of object;
  4. var
  5.   Proc:  TProcedure;
  6. type
  7.   pn = class
  8.     procedure p(s: string);
  9.   end;
  10.  
  11. procedure pn.p(s: string);
  12. begin
  13.   writeln('pn.p: '+s);
  14. end;
  15. var
  16.   u: Pn;
  17. Begin
  18.   u := Pn.Create;
  19.   Proc := @u.p;
  20.   Proc^('hello');
  21. End.