home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / objects / simpobj / simpobj.dpr next >
Encoding:
Text File  |  1995-03-21  |  374 b   |  23 lines
  1. program Simpobj;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: SIMPOBJ }
  5.  
  6. uses
  7.   WinCrt;
  8.  
  9. type
  10.   TMyClass = class(TObject)
  11.   end;
  12.  
  13. var
  14.   AnObject: TObject;
  15.   MyClass: TMyClass;
  16. begin
  17.   MyClass := TMyClass.Create;
  18.   WriteLn('A Name: ', MyClass.ClassName);
  19.   WriteLn('Parent: ', MyClass.ClassParent.ClassName);
  20.   MyClass.Free;
  21. end.
  22.  
  23.