| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TClass из ClassName

serg ©   (2002-03-20 13:02:00) 

Имея TClass легко получить ClassName.
А вот возможно ли обратное? т.е. имея ClassName получить TClass.

type
TClass = class of TObject;
var
C:TClass;
N:string;
1)
N:=C.ClassName;
2)
N:="TMyClass";
C:= ?

---

serg   (2002-03-20 13:24:00) [1]

sorry,Разобрался!
var
C:TClass;
begin
RegisterClasses([TEdit]);
C:=GetClass("TEdit");
if assigned(C) then
ShowMessage(C.ClassName)
else ShowMessage("No");
end;

---

serg   (2002-03-20 13:22:00) [2]

Не дается!

var
C:TClass;
begin
C:=GetClass("TEdit");
if assigned(C) then
ShowMessage(C.ClassName)
else ShowMessage("No");
end;

---

reonid   (2002-03-20 13:09:00) [3]

C := GetClass(N);
(класс должен быть потомком TPersistent и предварительно зарегистрирован с помощью RegisterClass(C);)

---

Наверх