Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Динамическое создание полей II

Как мне определить на лету другое поле подобно команде "Define" в редакторе полей (Fields Editor)? (Калькулируемое поле, другими словами?)

Следующий код создаст полный набор 'default' TField для TTable и добавит затем калькулируемое поле:

procedure TForm1.Button1Click(Sender: TObject);

var

f : TField;

i : integer;

begin

Table1.Close;

for i := 0 to Table1.FieldDefs.Count - 1 do

Table1.FieldDefs.Items[i].CreateField(Table1);

f := TStringField.Create(Table1);

f.Name := 'Table1CalcField';

f.FieldName := 'CalcField';

f.DisplayLabel := 'CalcField';

f.Calculated := True;

f.DataSet := Table1;

Table1.Open;

end;

...следующий пример создаст два новых TField в TTable, 'базируясь' на TField, определенных в режиме редактирования. Одно из новых полей калькулируемое, другое нет:

procedure TForm1.Button1Click(Sender: TObject);

var

f1, f2 : TField;

begin

Table1.Close;

f1 := TStringField.Create(Table1);

f1.Name := 'Table1CalcField';

f1.FieldName := 'CalcField';

f1.DisplayLabel := 'CalcField';

f1.Calculated := True;

f1.DataSet := Table1;

f2 := TFloatField.Create(Table1);

f2.Name := 'Table1Population';

f2.FieldName := 'Population';

f2.DisplayLabel := 'Population';

f2.DataSet := Table1;

Table1.Open;

end;

Eryk [000702]

2012-02-08 14:18:59 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_d5.txt
2012-02-08 14:18:59 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_d5.txt
2012-02-08 14:18:59 - Не могу записать данные в файл: /home/aptemne/public_html/xapsdflkjs789s7sffsh553/cache_aptem_net_ru_d5.txt

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК