Текущий архив: 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.021 c
