home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRPT.ZIP / ifpasscript / demo_del / ctest2.ifs < prev    next >
Text File  |  2001-03-20  |  256b  |  23 lines
  1. Program IFSTest;
  2. type
  3.   T = class
  4.    procedure p;
  5.   function newt: T;
  6.   end;
  7. procedure t.p;
  8. begin
  9.   writeln('p');
  10. end;
  11.  
  12. function t.Newt: t;
  13. begin
  14.   Result := t.Create;
  15. end;
  16. var
  17.   a: t;
  18. Begin
  19.   a:= t.create;
  20.   a.newt.p;
  21.   a.free;
  22. End.
  23.