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

Вниз

Вычисляемое поле   Найти похожие ветки 

← →
Ник ©   (2003-03-03 10:54) [0]

Подскажите пожалуйста, как мне добавить в таблицу вычисляемое поле на этапе выполнения программы

---

← →
Соловьев ©   (2003-03-03 10:58) [1]

Вот примерчик:
with MySql do
begin
DataBaseName := "cadr";
AutoCalcFields := true;
OnCalcFields := MyCalcFields;
with FieldDefs do
begin
Add("phone", ftFloat, 0, true);
FieldDefs[0].CreateField(MySql);

Add("FIO", ftString, 100, true);
FieldDefs[1].CreateField(MySql);

Numer := TIntegerField.Create(MySql);
with Numer do
begin
FieldName := "Numer";
Calculated := True;
DataSet := MySql;
Name := MySql.Name + FieldName;
MySql.FieldDefs.Add(Name, ftInteger, 0, true);
end;
end;
end;

---

← →
VAleksey ©   (2003-03-03 13:39) [2]

А алгоритм вычислений тоже надо "программно" формировать ?

---

← →
Соловьев ©   (2003-03-03 14:44) [3]

да.

> OnCalcFields := MyCalcFields;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.031 c