Текущий архив: 2003.10.27;
Скачать: CL | DM;

Вниз

Как правильно написать данный код?   Найти похожие ветки 

← →
p0tia ©   (2003-10-16 18:21) [0]

form1.PageControl1.TabPosition := DataModule1.config.Fields[1].AsVariant

Поле изначально в String

---

← →
romeo ©   (2003-10-16 18:34) [1]

a может просто:
if DataModule1.config.Fields[1].AsString = "tpTop"
then form1.PageControl1.TabPosition := tpTop
else if DataModule1.config.Fields[1].AsString = "tpBottom"
then form1.PageControl1.TabPosition := tpBottom и т.д.?

---

← →
Семен Сорокин ©   (2003-10-16 18:54) [2]

поле Byte
сохранять
DataModule1.config.Fields[1].AsInteger = Ord(form1.PageControl1.TabPosition)
загружать
form1.PageControl1.TabPosition := TTabPosition(DataModule1.config.Fields[1].AsInteger)

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.27;
Скачать: CL | DM;

Наверх

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