Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c