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

Дополнительное поле на время Run-Time   Найти похожие ветки 

← →
IGray   (2003-05-19 18:35) [0]

Очень нужно сопоставить КАЖДОЙ записи таблицы поле
Integer для хранения указателя на некий объект,
но на диске место на него не тратить, т.к. оно мне
только в Run-Time нужно...

Подтолкните чайника, пожалуйста!

Использую Paradox7 + TTable.

---

← →
Val ©   (2003-05-19 19:02) [1]

м.б. Calculated Field?

---

← →
IGray   (2003-05-19 20:51) [2]

Вряд ли. Мне нужно чтобы его значение не рассчитывалось по другим
полям, а запихивалось принудительно... Есть идеи?
Подозреваю, что задача достаточно типовая - может я спросил
криво?

---

← →
Sergey13 ©   (2003-05-20 08:54) [3]

2IGray (19.05.03 20:51)
>Подозреваю, что задача достаточно типовая
Правильно подозреваешь. Хоть и нет "типового" решения но вопрос частый. Вот и поискал бы сам по соседним веткам.

---

← →
Val ©   (2003-05-20 10:17) [4]

>IGray (19.05.03 20:51)
Мне нужно чтобы его значение не рассчитывалось по другим
полям, а запихивалось принудительно...
А кто вас заставляет рассчитывать значение поля именно по другим полям, а запихивать его добровольно?

---

← →
IGray   (2003-05-20 12:14) [5]

-> Sergey13
>>Подозреваю, что задача достаточно типовая
>Правильно подозреваешь. Хоть и нет "типового" решения но вопрос >частый. Вот и поискал бы сам по соседним веткам.
Просто я усомнился, что он настолько частый, чтобы простым
перебором искать... А поиском я бы воспользовался, но что-то
подходящие ключевые слова в голову не приходят :-(

-> Val
>А кто вас заставляет рассчитывать значение поля именно по >другим полям, а запихивать его добровольно?
Я не совсем понял - где вы предлагаете хранить значения доп.поля?

---

← →
Saraf   (2003-05-27 09:12) [6]

Используй связку
TTable --> TDataSetProvider --> TClientDataSet
в TClientDataSet создаешь поле типа InternacCalc и по событию OnCalcField заполняешь значение поля


procedure onCalcFields(DataSet: TDataSet);
begin
with DataSet as TClientDataSet do
if State = dsInternalCalc then begin
FieldByName(FieldName).Value := ...
end;
end;


---

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

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



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