Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

TClass из ClassName 


serg   (2002-03-20 13:02) [0]

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

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



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

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



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

Не дается!

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



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

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.021 c
1-214             Ivan_A                2002-03-20 01:26  2002.04.01  
Как притрупить форму?


1-109             YanKY                 2002-03-13 09:22  2002.04.01  
Интперпритатор языка Паскаль


3-3               andyfirst             2002-03-05 14:44  2002.04.01  
Ошибка в запросе


6-265             Malder                2002-01-19 13:39  2002.04.01  
Перехват Socket соединения


4-366             JAndrey               2002-01-31 01:18  2002.04.01  
Как сделать автозапуск при загрузке?