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