VPF::По имени класса создать класс - Форум программистов

ivan219

Дата 2.3.2008, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Есть класс:

Код


type
  TC = class(TComponent)
...
...
...
  end;

Возможноли имея имя класса в виде строки т.е. 'TC' создать сам класс???
Т.е. чтобы было так:

Код


function StrintToType(ClassName: String): TComponent;
begin

end;
.
.
.
StringToType('TC').Create;

Это сообщение отредактировал(а) ivan219 - 2.3.2008, 01:11

--------------------

Мой первый сайт и моя первая программа!!!!!

diamondd

Дата 2.3.2008, 01:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 11.9.2007

Репутация: нет
Всего: нет

в общем случае - не возможно...

это возможно только для потомков класса TPersistent и только в том случае, если это или форма, или компонент объявленный в форме, или этот класс зарегистрирован с помощью функции:

Код


procedure RegisterClass(AClass: TPersistentClass);

тогда возможно получение класса по его имени:

Код


function GetClass(const AClassName: string): TPersistentClass;

RTMF, это все есть в хелпе...

Это сообщение отредактировал(а) diamondd - 2.3.2008, 01:46

ivan219

Дата 2.3.2008, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Цитата(diamondd @ 2.3.2008, 01:40

)

или этот класс зарегистрирован с помощью функции:

А по закрытию программы нужно снимать регистрацию и как???

--------------------

Мой первый сайт и моя первая программа!!!!!

diamondd

Дата 2.3.2008, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 11.9.2007

Репутация: нет
Всего: нет

нет. функция

Код


procedure RegisterClass(AClass: TPersistentClass);

ставится в секции initialization в модуле, где описывается класс (этот класс дожен быть потомком TPersistent). эта функция записывает класс в RegGroups (специальный объект для регистрации классов). т.е. при инициализации модуля Classes создается объект RegGroups, а при инициализации модуля, в котором описан класс, он (этот класс) регистрируется в объекте RegGroups.

т.е. если ты пишешь свой класс (TMyClass), чтобы использовать свой класс в функции GetClass, то ты должен написать:

Код


initialization
  RegisterClass(TMyClass);
  ...

finalization
  UnregisterClass(TMyClass);

пример можно найти в модуле IdMessage. если же ты хочешь использовать класс, описанный в чужом модуле, то тебе придется самому дописать регистацию этого класса. напомню, что формы и компоненты, объявленные в форме, и даже по-моему те, которые зарегестированы на палитре компонентов регистируются автоматически. smile

ivan219

Дата 2.3.2008, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Не выходит smile

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  StringList: TStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  a: TPersistentClass;
begin
 StringList := TStringList.Create;
// StringList.AddObject('',TC.Create);
 A := GetClass('TC');
 A.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
 for I := 0 to StringList.Count - 1 do
  StringList.Objects[I].Free;
 StringList.Free;
end;
end.

Код


unit Test;

interface

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

type
  TC = class(TPersistent)
  private
    FButton: TButton;
  public
    constructor Create;
    destructor Destroy; override;
    procedure AClick(Sender: TObject);
  end;

implementation

uses
  Unit1;

{ TC }

procedure TC.AClick(Sender: TObject);
begin
 Form1.Caption := 'asdf';
end;

constructor TC.Create;
begin
 inherited;
  FButton := TButton.Create(Form1);
  FButton.Parent := Form1;
  FButton.Caption := 'asd';
  FButton.OnClick := AClick;
end;

destructor TC.Destroy;
begin
  FButton.Free;
  inherited;
end;

initialization
  RegisterClass(TC);

finalization
  UnregisterClass(TC);
end.

Если сделать через StringList.AddObject('',TC.Create); то всё получается а через GetClass('TC'); не срабатывает

--------------------

Мой первый сайт и моя первая программа!!!!!

diamondd

Дата 2.3.2008, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 11.9.2007

Репутация: нет
Всего: нет

ошибка тут:

Код


  StringList := TStringList.Create;
  // StringList.AddObject('',TC.Create);
  A := GetClass('TC');
  A.Create;

конструктор возвращает указатель на вновь созданный элемент. вот простой пример:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  a: TPersistentClass;
begin
  a:=GetClass('TC');
  S:=TStringList.Create;
  S.AddObject('',A.Create);
  ShowMessage(S.Objects[0].ClassName);
  S.Free;
end;

ivan219

Дата 2.3.2008, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Я так тоже делал:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  A: TPersistentClass;
begin
 StringList := TStringList.Create;
 A := GetClass('TC');
 StringList.AddObject('',A.Create);
 //StringList.AddObject('', TC.Create);
end;

Но результат такойже StringList.AddObject('', TC.Create); работает и кнопка появляется а StringList.AddObject('',A.Create); не появляется хот и ShowMessage(S.Objects[0].ClassName); показывает что он есть smile

Добавлено через 3 минуты и 12 секунд
Создаётся в печатление что при выполнении A.Create создаётся класс TC но при это конструктор этого класс не вызывается smile

--------------------

Мой первый сайт и моя первая программа!!!!!

bems

Дата 2.3.2008, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(ivan219 @ 2.3.2008, 15:01

)

Создаётся в печатление что при выполнении A.Create создаётся класс TC но при это конструктор этого класс не вызывается

Твой - нет. Это потому что у TPersistent он не виртуальный. И спользуй TComponent с перекрытам конструктором.
TComponent наследник TPersistent, поэтому с ним тоже можно RegisterClass

--------------------

Обижено школьников: 8

lukas

Дата 2.3.2008, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

ivan219,

у меня тоже была такая проблема, конструктор не вызывался, поэтому у классов которые ты создаешь конструктор должен быть...

Код


constructor Create; override;

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

ivan219

Дата 3.3.2008, 00:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Переделал но всё по прежнему.

Код


  TC = class(TComponent)
  private
    FButton: TButton;
  public
    constructor Create(AOwner: TComponent); override;

Код


StringList.AddObject('',A.Create(Nil));

Не компилит.

Код


StringList.AddObject('',TComponent(A).Create(Nil));

Компилит но вылетает ошибка.

Добавлено через 2 минуты и 15 секунд
Попробовал сделать свой виртуальный конструктор но результат тотже.

--------------------

Мой первый сайт и моя первая программа!!!!!

Felan

Дата 3.3.2008, 08:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 284
Регистрация: 2.8.2007
Где: Самара

Репутация: 2
Всего: 7

Для того, что бы использовать виртуальные конструкторы для создания класса по имени, нужно использовать ссылки на класс (Class reference).
Пример в аттаче.

Присоединённый файл ( Кол-во скачиваний: 11 )

_______________________.rar 2,04 Kb

--------------------

// Любая сложная система - это темный лес. Каждый в этом лесу протаптывает свои тропинки, по ним и бегает. Лишь изредка, сходя с них, мы находим много интересного, а порою и страшного.

MetalFan

Дата 3.3.2008, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Felan, и к чему это??? автор вроде об этом знает... ему надо класс создать по имени.

--------------------

There are always someone smarter than you...

bems

Дата 3.3.2008, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  StringList: TStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  a: TComponentClass;
begin
 StringList := TStringList.Create;
// StringList.AddObject('',TC.Create);
 A := TComponentClass(GetClass('TC'));
 A.Create(nil);
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
 for I := 0 to StringList.Count - 1 do
  StringList.Objects[I].Free;
 StringList.Free;
end;
end.

Код


unit test;

interface

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

type
  TC = class(TComponent)
  private
    FButton: TButton;
  public
    constructor Create(AOwner:TComponent);override;
    destructor Destroy; override;
    procedure AClick(Sender: TObject);
  end;

implementation

uses
  Unit1;

{ TC }

procedure TC.AClick(Sender: TObject);
begin
 Form1.Caption := 'asdf';
end;

constructor TC.Create(AOwner:TComponent);
begin
 inherited;
  FButton := TButton.Create(Form1);
  FButton.Parent := Form1;
  FButton.Caption := 'asd';
  FButton.OnClick := AClick;
end;

destructor TC.Destroy;
begin
  FButton.Free;
  inherited;
end;

initialization
  RegisterClass(TC);

finalization
  UnregisterClass(TC);
end.

--------------------

Обижено школьников: 8

lukas

Дата 3.3.2008, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Код


Var
 OBJ: TControl;
begin
OBJ := TComponentClass(GetClass('TButton')).Create(Form1);
OBJ.Parent := Form1;
end;

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

ivan219

Дата 3.3.2008, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

bems, lukas smile

Спасибо.

Цитата(ivan219 @ 3.3.2008, 00:38

)

StringList.AddObject('',TComponent(A).Create(Nil));

Код


 StringList.AddObject('',TComponentClass(GetClass('TC')).Create(Nil));

А ведь был очень близко smile

Добавлено через 5 минут и 20 секунд
И ещё вопрос:
Как я могу узнать какие классы именно я зарегестрировал???

--------------------

Мой первый сайт и моя первая программа!!!!!

bems

Дата 3.3.2008, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(ivan219 @ 3.3.2008, 19:35

)

Как я могу узнать какие классы именно я зарегестрировал???

Именно ты? нет, не можеш
Пиши свою RegisterClass, которая будет вызывать оригинал, записывать результат в список и возвращать его наружу. Потом для решения твоего вопроса юзай этот список

Это сообщение отредактировал(а) bems - 3.3.2008, 21:55

--------------------

Обижено школьников: 8

ivan219

Дата 3.3.2008, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Цитата(bems @ 3.3.2008, 21:51

)

Именно ты? нет, не можеш

Жаль думал есть стандартная.

Цитата(bems @ 3.3.2008, 21:51

)

Пиши свою RegisterClass

Код


unit URegisterClass;

interface

uses
  Classes;

procedure RegisterClassList(AClass: TPersistentClass);
function GetClassList(Index: Integer): String;
function GetCountList: Integer;

implementation

var
  StringList: TStringList;

procedure RegisterClassList(AClass: TPersistentClass);
begin
 if Assigned(StringList) then
  begin
   RegisterClass(AClass);
   StringList.Add(AClass.ClassName);
  end;
end;

function GetClassList(Index: Integer): String;
begin
 if Index < StringList.Count then
  Result := StringList.Strings[Index];
end;

function GetCountList: Integer;
begin
 Result := StringList.Count;
end;

Initialization
 StringList := TStringList.Create;
Finalization
 StringList.Free;
end.

Применение:

Код


.
.
.
initialization
  RegisterClassList(TC);

finalization
  UnregisterClass(TC);

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
 StringList := TStringList.Create;
 for I := 0 to GetCountList - 1 do
  StringList.AddObject('',TComponentClass(GetClass(GetClassList(I))).Create(Nil));
end;

Всем спасибо вопрос решон smile

--------------------

Мой первый сайт и моя первая программа!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »