Текущий архив: 2002.04.01;
Скачать: CL | DM;
Вниз
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;
Страницы: 1 вся ветка
Текущий архив: 2002.04.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
