Передача имени класса как параметра

[Квэнди]

Вот есть у нас некий класс:

Tc1=class(Tobject)
private
 fobject:Tobject;
 procedure setobject(value:Tobject);
public
 constructor create (<что- то здесь>);
 destructor destroy; override;
 property ObjectJob:TObject read fobject write setobject;
........
constructor Tc1.create (<что- то здесь>);
begin
{цель: получить в качестве параметра имя класса, являющегося потомком TObject, 
и создать экземпляр (fobject) полученного класса.}
end;
destructor Tc1.destroy;
begin
fobject.free;
inherited destroy;
end;
.............

Вот собсвенно и вопрос: как передать имя некого класса и затем создать экземпляр этого класса, проверив, разумеется, является ли он потомком TObject.

[BOBAH13]

А разве просто указать TObject нельзя ? А Дельфи проверит, является ли класс потомком TObject или иначе даст ошибку. Там вроде имя класса в виде String дает кажется GetClassName или что-то в таком духе.

[Stilet]

Могу предложить такой путь:

procedure TForm1.FormCreate(Sender: TObject);
procedure aga(c:TObject);
begin
 if c.ClassParent= TObject then
  caption:='Предок - ТОбьект';
end;
begin
 aga(TObject(Form1));
end;

Хотя, Квэнди, мож попроще можно твою проблему решить, ты обьясни зачем тебе это?

[Квэнди]

не, идея в другом: в качестве параметра передается строка, которая по факту является названием класса. а в коде того же конструктора, к примеру, необходимо привести внутреннюю переменную типа TObject к полученному классу, чтобы были доступны через MethodAddress его методы для выполнения.
В общем виде хочется увидеть это:

procedure dosome (classn:string);
var o:tobject;
begin
o:=(Tobject as classn).create;
end;

[Stilet]

привести внутреннюю переменную типа TObject к полученному классу

Ну тогда даже не знаю...
Если это контролы то еще можно через FindComponent() получить, а если голые классы....

P.S. Помоему Делфи не научили таким мастерствам работы с ООП...

[Квэнди]

Вобщем получилось в грубом виде.

unit Unit33;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  tcl1=class (TPersistent)
  published
    	procedure mm (s:AnsiString);
  end;
  myproc  =procedure (s:AnsiString) of object;
  TForm33 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form33: TForm33;

implementation

{$R *.dfm}
procedure tcl1.mm(s: AnsiString);
begin
  showmessage(s);
end;
procedure TForm33.btn1Click(Sender: TObject);
var m:TMethod;
ss:tobject;
begin
ss:=GetClass('tcl1').Create;
m.data:=ss;
m.Code:=ss.MethodAddress(edt1.Text);
myproc(m)(edt1.Text);
end;
initialization
RegisterClass(Tcl1);
end.

Соответсвенно вроде все отечает задачам ) ну отказ от Tobject в сторону TPersistent сыграет только в плюс

[Антон Ю.Б.]

А FindClass(ClassN) ?

[Stilet]

Антон:

Finds and returns a class that is derived from TPersistent.

Так что неизвесно возьмет ли он все что ниже по уровню.

[Квэнди]

А смысл тот же

Findclass
Finds and returns a class that is derived from TPersistent.
function FindClass(const ClassName: string): TPersistentClass;

Getclass
Returns a registered persistent class given its name.
function GetClass(const AClassName: string): TPersistentClass;

[Антон Ю.Б.]

Сообщение от Stilet

Так что неизвесно возьмет ли он все что ниже по уровню.

В смысле? А как еще понимать "derived from"?

а смысл тот же

Почти, если в найденном говорят правду:

Данная функция аналогична функции FindClass за исключением того, что если для указанного имени не найден зарегистрированный класс, то функция GetClass возвращает nil.