Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Вниз
Преведение к классу Найти похожие ветки
← →
SNV-Soft (2004-08-20 08:10) [0]{ Var
CurClass: TClass; - объявил переменную
CurClass:= TShape; - присвоил переменнной нужный класс
Теперь вот эту херь
(MainForm.ActiveMDIChild).Pnl_Design.Components[i]
нужно преобразовать к классу который в переменной CurClass
что бы получимлось типа так:
TShape(MainForm.ActiveMDIChild).Pnl_Design.Components[i])
Вот так не катит
(CurClass(MainForm.ActiveMDIChild).Pnl_Design.Components[i])
так тоже
(MainForm.ActiveMDIChild).Pnl_Design.Components[i] as CurClass)
Как преобразовать !?}
← →
Рамиль © (2004-08-20 08:20) [1]Может все таки лучше так:
CurClass: TShape;
...
CurClass := TShape.Create();
...
if (MainForm.ActiveMDIChild).Pnl_Design.Components[i] is TShape then
(TShape(MainForm.ActiveMDIChild).Pnl_Design.Components[i])
← →
Рамиль © (2004-08-20 08:23) [2]Что-то я не то написал...(
← →
SNV-Soft (2004-08-20 08:24) [3]Var
CurClass: TClass;
CurClass:= TShape;
TControl(((TDesignForm(MainForm.ActiveMDIChild).Pnl_Design.Components[i]) as CurClass)).Width
все намного проще!!
← →
SNV-Soft (2004-08-20 08:32) [4]Чо то я туплю.....
по идеи и так можно
TControl(((TDesignForm(MainForm.ActiveMDIChild).Pnl_Design.Components[i]))).Width
← →
Рамиль © (2004-08-20 08:36) [5]А зачем тебе понадобилась конструкция
CurClass: TClass;
CurClass:= TShape;
?
← →
jack128 © (2004-08-20 09:38) [6]
> Чо то я туплю.....
Это точно ;-)
Ты можешь внятно объяснить, что такое прямое преобразование к ПЕРЕМЕННОЙ? Это бессмысленная конструкция.
В принципе [3] - это правильный вариант, разве что коректнее объявить CurClass, как TControlClass ..
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.03 c
