| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вычисляемое поле [D7, dBase, FoxPro]

Ник ©   (2003-03-03 10:54:00) 

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

---

Соловьев   (2003-03-03 14:44:00) [1]

да.

> OnCalcFields := MyCalcFields;

---

VAleksey   (2003-03-03 13:39:00) [2]

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

---

Соловьев   (2003-03-03 10:58:00) [3]

Вот примерчик:
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;

---

Наверх