Преведение к классу

← →
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

А зачем тебе понадобилась конструкция
CurClass: TClass;
CurClass:= TShape;
?

> Чо то я туплю.....
Это точно ;-)

Ты можешь внятно объяснить, что такое прямое преобразование к ПЕРЕМЕННОЙ? Это бессмысленная конструкция.
В принципе [3] - это правильный вариант, разве что коректнее объявить CurClass, как TControlClass ..

Преведение к классу Найти похожие ветки