Типы полей таблицы

[bestonix]

Доброго здоровья уважаемые коллеги.

Вопрос небольшой.
Есть БД с набором таблиц. Я читаю весь перечень таблиц в ListBox, по клику на какой нить таблице в другой список загружаю имена полей.
А вот как мне узнать типы полей к сожалению не знаю. Подскажите пожалуйста строкой кода

Заранее благодарен.

[amateur]

в цикле прогнать вроде этого

Код: Выделить всё

          case Db.DbfFieldDefs.Items[zz].FieldType of
            ftString : TipPolja := 'String';
            ftSmallint : TipPolja := 'Smallint';
            ftInteger : TipPolja := 'Integer';
            ftWord : TipPolja := 'Word';
            ftBoolean : TipPolja := 'Boolean';
            ftFloat : TipPolja := 'Float';
            ftCurrency : TipPolja := 'Currency';
            ftBCD : TipPolja := 'BCD';
            ftDate : TipPolja := 'Date';
            ftTime : TipPolja := 'Time';
            ftDateTime : TipPolja := 'DateTime';
            ftBytes : TipPolja := 'Bytes';
            ftAutoInc : TipPolja := 'AutoInc';
            ftBlob : TipPolja := 'Blob';
            ftMemo : TipPolja := 'Memo';
            ftGraphic : TipPolja := 'Graphic';
            ftFmtMemo : TipPolja := 'FmtMemo';
            ftDBaseOle : TipPolja := 'DBaseOle';
            ftTypedBinary : TipPolja := 'TypedBinary';
          end;

[bestonix]

>amateur

Огромное спасибо.