home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / utility / unittool / turbo5 / intrfc55 / test1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-25  |  715 b   |  55 lines
  1. {$A-,B-,D+,E-,F-,I+,L+,N+,O-,R-,S+,V+}
  2. {$M 16384,0,655360}
  3. unit test1;
  4.  
  5. interface
  6.  
  7. uses objects;
  8.  
  9. const
  10.   w : word = 3;
  11.  
  12. type obj = object(base)
  13.   procedure firstproc; virtual;
  14.   procedure secondproc; virtual;
  15. end;
  16.  
  17.  
  18. type rec = record
  19.   junk : word;
  20. end;
  21.  
  22. function f:byte;
  23.  
  24. implementation
  25. var
  26.   o : obj;
  27.  
  28. type descend = object(obj)
  29.   procedure firstproc; virtual;
  30.   procedure thirdproc; virtual;
  31. end;
  32.  
  33. procedure obj.firstproc;
  34. begin
  35. end;
  36. procedure obj.secondproc;
  37. begin
  38.   writeln('hi');
  39. end;
  40. procedure descend.firstproc;
  41. begin
  42.   writeln('hi');
  43. end;
  44. procedure descend.thirdproc;
  45. begin
  46.   writeln('hi');
  47. end;
  48.  
  49. function f;
  50. begin
  51.   f := 1;
  52. end;
  53. begin
  54.   w := 4;
  55. end.