fork download
copy 
  1. program Project1;
  2. {$MODE DELPHI}
  3.  
  4. type Parent = class
  5.     constructor create(const str: string);
  6. end;
  7.  
  8. type Child = class(Parent)
  9. end;
  10.  
  11. type ClassOfParent = class of Parent;
  12.  
  13. function fact(ClassType: ClassOfParent; const str: string): Parent;
  14. begin
  15. 	result := ClassType.Create(str);
  16. end;
  17.  
  18. constructor Parent.create(const str: string);
  19. begin
  20. end;
  21.  
  22. var inst: Parent;
  23.  
  24. begin
  25.   inst := fact(Child, 'Sasha');
  26. end.
Success #stdin #stdout 0s 308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/pMMUqV
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!