ClassName to TObject

[DimProfi]

Is it possible to make a function which creates Objects of Class, which name is defined as string?

Code: [Select]

function CreateObject(_classname:string):TObject;
If don't than may be it's possible using TClass as function parameter?

It doesn't work in this form ("Exception: Invalid Type Cast"),
but shows a concept to understand.

Code: [Select]

function CreateObject(_class:TClass):TObject;
begin
  Result:=_class.Create();
end;
I would be satisfied with a solution for second variant.

[Leledumbo]

You can use Class Reference (scroll down a little).

[DimProfi]

It's seems to work correctly now - Thanks!   

Here one Example for the others:

Code: [Select]

type
TProtoObjectClass=class of TProtoObject;

...

function CreateProtoObject(_class:TProtoObjectClass):TProtoObject;
begin
  Result:=_class.Create();
end;


[Imants]

You can create object from string.

Code: [Select]

TProtoObjectClass=class of TProtoObject;

...

function CreateObject(_class: string):TObject;
begin
  Result:=TProtoObjectClass(FindClass(_class)).Create();
end;

...

initialization
  RegisterClass(TProtoObject); // class must be registred


[DimProfi]

Hey that's amazing - thanks!