home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / mltest.ifs < prev    next >
Text File  |  2001-03-22  |  446b  |  31 lines
  1. Program IFSTest;
  2. type
  3.   a = class
  4.      function GetSelf: a;
  5.      procedure p(); virtual;
  6.   end;
  7.   b = class(A)
  8.      procedure p();override;
  9.   end;
  10. function a.GetSelf: A;
  11. begin
  12.    Result := Self;
  13.   writeln('getself');
  14. end;
  15. procedure A.P;
  16. begin
  17.   writeln('a.p');
  18. end;
  19. procedure B.P;
  20. begin
  21.   writeln('B.p');
  22.   inherited;
  23. end;
  24. var
  25.   bb: b;
  26. Begin
  27.   bb := b.Create();
  28.   writeln('1');
  29.   bb.GetSelf().P();
  30.   bb.Destroy;
  31. End.