Форум: "Основная";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.012 c