Is there a way to instantiate a class by its name in delphi?

Question

I'd like to instantiate a class but I only have its name in a string. Is there a way?

score 29 · Accepted Answer · answered Mar 31 '09 at 13:54

29

This is from Delphi help (Delphi 2006, but also available from at least Delphi 7):

Syntax function GetClass(const AClassName: string): TPersistentClass;

Description Call GetClass to obtain a class from a class name. This class can be used as a parameter to routines that require a class. The Class must be registered before GetClass can find it. Form classes and component classes that are referenced in a form declaration (instance variables) are automatically registered when the form is loaded. Other classes can be registered by calling RegisterClass or RegisterClasses .

Here some sample code. Works as such only because TButton is a TControl and therefore the typecast is valid.

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterClasses([TButton, TForm]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  CRef : TPersistentClass;
  AControl : TControl;
begin
  CRef := GetClass('TButton');
  if CRef<>nil then
  begin
     AControl := TControl(TControlClass(CRef).Create(Self));
     with AControl do
     begin
        Parent := Self;
        Width := 50;
        Height := 30;
     end;
  end;
end;

answered Mar 31 '09 at 13:54

Ralph M. Rickenbach

12,893
5
29
49

Great solution. But now I've ran into another issue. The class I'd like to instantiate is a class of my own that implements an Interface. And registerClass must be called with a persistent class. Any idea? – Ricardo Acras Mar 31 '09 at 14:12
Is it possible to derive your class or one of it's ancestors from TPersistent? – Ralph M. Rickenbach Mar 31 '09 at 14:28
I don't believe so, since it implements a interface and it has to derive from TInterfaceObject – Ricardo Acras Mar 31 '09 at 14:29
2

I fount TInterfacedPersistent, just perfect. Thanks. – Ricardo Acras Mar 31 '09 at 14:51
Never mind my previous suggestion. TInterfacedPersistent is what you want. I thought it existed but couldn't remember the name. – Jim McKeeth Mar 31 '09 at 15:47
2

You don't have to use the VCL's RegisterClass mechanism if you don't want to change your class hierarchy - write your own. Just have a look at TRegGroup.GetClass, TRegGroup.RegisterClass etc in Classes.pas. You can simplify the code by throwing out the RegGroups layer. – Uli Gerhardt Mar 31 '09 at 17:51

score 2 · Answer 2 · answered Jun 22 '09 at 11:54

When I needed to do that, I Built my own Object Factory that uses a specially subclassed TStringList, I'm currently using Delphi 7 so the string list class supports only attach a Object to a String, then I got to subclass TStringList to make it possible handle Class Types too, so now I can instantiate a object just passing it's class name to the factory. Works that way:

1st - Load a Singleton Object Factory;
2st - Register any object to the factory, could be in the initialization section of the unit;

The main Factory's methods could be: isClassRegistered, registerClass, instantiateClass(ClassName: STring): TObject;

This way I can instantiate any object, or use a previous instantiated object, or even, a subset of they.

I rather use a Enumerated type instead of a string to identify a Class.

Remarks: It's a very, very terse example, a completely functional code is more complex, but, belive me, not too much.

Is there a way to instantiate a class by its name in delphi?

2 Answers2

Linked