Программно добавить поле в TFields

← →
Вика (2001-12-18 10:29) [0]

Есть Sql-предложение с переменным числом полей. Всё бы хорошо, да в этом датасете есть ещё lookup-поле. Как мне добавлять/удалять поля , по мере необходимости?

fld:=TField.Create(Application);
fld.FieldName := "Vidname";
fld.FieldKind := fkData;
fld.SetFieldType(ftstring);
qu.Fields.Add(fld);

При работе этого текста - выдаётся ошибка, что тип поля ftUnknown, а реально ftString. Т.е. полдучается, что присоздании поля ему присваивается тип ftUnknown, и потом строкой fld.SetFieldType(ftstring); - уже ничего не меняется.

Подскажите пожалуйста - где я ошибаюсь.

← →
Delirium (2001-12-18 11:25) [1]

var fld:TStringField;

Программно добавить поле в TFields Найти похожие ветки