Создание обьекта

[RealSHELS]

Здравствуйте, уважаемые форумчане!
Я не знаю как правильно искать то что мне нужно, надеюсь вы меня поймете по описанию.

предположим у нас есть строка
s:string;

она хранит имя компонента
s:='TButton';

как можно теперь создать этот обьект, по типу
(s as TComponent).create; // и чтобы создалась кнопка.

Возможно ли такое вообще?

Заранее спасибо за ответы.

[alextrof94]

Нет. Все объекты/переменные должны быть заранее объявлены.
Динамически создавать не объявленные объекты, насколько я знаю, невозможно.
Можно хранить массив кнопок (объявленный, в том числе и динамический), и при вызове функции брать один элемент массива и его создавать.
Прикрепил готовый проект, надеюсь разберешься.

UPD: я что-то вообще не в ту степь пошел... Спать надо по ночам =/

[evg_m]

приблизительно так

var cls: TClass;
s: string;
obj: TObject;

s:='Tbutton';
cls:=GetClass(s);
obj:=cls.Create;

[RealSHELS]

alextrof94, спасибо, но это не то.

evg_m. попробоавал так, но у меня там
obj:=cls.create(id);
и на эту строчку компилятор матерится
[dcc32 Error] DataUnit.pas(815): E2010 Incompatible types: 'TBaseModel' and 'TObject'

скину пример всего кода чтобы было более понятно

function TDM.GetBaseModelByTovar(Tovar: TTovarModel): TBaseModel;
var
 Base:TBaseModel;
begin
  case Tovar.idTypeProduct of
    1: Base:=TLaptopBattery.Create(Tovar.idProduct);
    2: Base:=TExternalBattery.Create(Tovar.idProduct);
    3: Base:=TDigitalBattery.Create(Tovar.idProduct);
  else
    Base:=nil;
  end;
 result:=Base;
end;

Соответственно хочу избавиться от этого выбора и заменить на

function TDM.GetBaseModelByTovar(Tovar: TTovarModel; FClassName: String): TBaseModel;
var
 Base:TBaseModel;
begin
  try
    Base:=GetClass(FClassName).Create(Tovar.idProduct);
  except
    Base:=nil;
  end;
 result:=Base;
end;

TLaptopBattery, TExternalBattery, TDigitalBattery - это наследники класса TBaseModel, в которых переназначены виртуальные методы(функции) базового класса.

[phomm]

При инстанцировании более низкого по иерархии класса в переменную более высокого класса, надо указывать каст/приведение (в данном случае тобжект пытаетесь записать в бейсмодел, чего дельфи не даст сделать, т.к они несовместимы для присвоения _бинарно_ ).

Base:=GetClass(FClassName).Create(Tovar.idProduct) as TBaseModel;

[RealSHELS]

компилятор пишет:
[dcc32 Error] DataUnit.pas(816): E2010 Incompatible types: 'TPersistent' and 'TBaseModel'

[Slym]

Чтобы GetClass надо RegisterClass

[phomm]

Кстати, да, забыл упомянуть, хоть когда пост писал, была мысль припомнить, про регистеркласс.
Вот даже вспомнил, что пример писал кому-то для этакой "рефлексии"
http://www.cyberforum.ru/delphi/thread433417.html

[eval]

FClassName: String

откуда взялось название?

[evg_m]

TbaseModel должен быть наследником TPersistent
возможно не прямым а через цепочку TbaseModel-> TButton->..->Tcomponent-> Tpersistent

1. запрещенные варианты объявления базового класса

class TBaseModel =class
class TbaseModel =class(TObject)

2. возможные варианты объявления

class TbaseModel =class(TPeristent) 
class TbaseModel =class(Tcomponent)
class TBaseModel =class(TButton)

// для модуля базового класса

type
  class TbaseModel =class(TComponent)
  end;
  
  TModelclass =class of TBaseModel;

для модулей наследников базового класса

type
  class TModelX =class(TBaseModel)
  end;

initialization
  RegClass(TModelX);// обеспечивает возможность нахождения с помощью GetClass

для использования
1. c использование нашего(своего) типа TmodelClass

var
  modelname: string;
  modelcls: TModelClass;
  mdl: TBaseModel;

modelname:='TModelX';
modelcls:=TModelClass(  GetClass(modelname)  );
mdl:=modelcls.Create(....);

Правильное решение. Всегда будет вызван или конструктор TbaseModel или перекрытый в указанном наследнике

2. c использованием базовых (ну скажем Tcomponent)

var
  modelname: string;
  modelcls: TcomponentClass;
  mdl: TBaseModel;

modelname:='TModelX';
modelcls:=TComponentClass(  GetClass(modelname)  );
mdl:=modelcls.Create(componentower) as TBaseModel;

Возможное решение! Но конструктор должен быть перекрытым (override) от TComponent.

3. и вроде все верно(по синтаксису), но в целом неверно (смотри в конце)

var
  modelname: string;
  modelcls: TPersistentClass;
  mdl: TBaseModel;

modelname:='TModelX';
modelcls:= GetClass(modelname);
mdl:=modelcls.Create as TBaseModel;

НЕВЕРНОЕ решение.
здесь наш класс будет сконструирован неправильно.
Будет вызван только TObject.Create; вместо TBaseModel.Create(...) или же вместо Tcomponent.Create(ower: TComponent);