Тип полей в Table

[Olg@]

Вопрос такой: как получить список типов полей таблицы?

[Serge_Bliznykov]

Смотреть в датасете коллекцию TFields (ну и TField)


получить список типов можно примерно так (пишу здесь, если что - подправите):

      for I:=0 to Table1.FieldCount-1 do
          Memo1.Lines.Add(ShowTypeField(Table1.Fields[I].DataType));

функция (самописная) для преобразования типа в строку:

function ShowTypeField( const curTField : TFieldType) : string;
begin
 case curTField of
    ftUnknown: Result := 'ftUnknown';
    ftString: Result := 'ftString';
    ftSmallint: Result := 'ftSmallint';
    ftInteger: Result := 'ftInteger';
    ftWord: Result := 'ftWord';
    ftBoolean: Result := 'ftBoolean';
    ftFloat: Result := 'ftFloat';
    ftCurrency: Result := 'ftCurrency';
    ftBCD: Result := 'ftBCD';
    ftDate: Result := 'ftDate';
    ftTime: Result := 'ftTime';
    ftDateTime: Result := 'ftDateTime';
    ftBytes: Result := 'ftBytes';
    ftVarBytes: Result := 'ftVarBytes';
    ftAutoInc: Result := 'ftAutoInc';
    ftBlob: Result := 'ftBlob';
    ftMemo: Result := 'ftMemo';
    ftGraphic: Result := 'ftGraphic';
    ftFmtMemo: Result := 'ftFmtMemo';
    ftParadoxOle: Result := 'ftParadoxOle';
    ftDBaseOle: Result := 'ftDBaseOle';
    ftTypedBinary: Result := 'ftTypedBinary';
    ftCursor: Result := 'ftCursor';
    ftFixedChar: Result := 'ftFixedChar';
    ftWideString: Result := 'ftWideString';
    ftLargeInt: Result := 'ftLargeInt';
    ftADT: Result := 'ftADT';
    ftArray: Result := 'ftArray';
    ftReference: Result := 'ftReference';
    ftDataSet: Result := 'ftDataSet';
    ftOraBlob: Result := 'ftOraBlob';
    ftOraClob: Result := 'ftOraClob';
    ftVariant: Result := 'ftVariant';
    ftInterface: Result := 'ftInterface';
    ftIDispatch: Result := 'ftIDispatch';
    ftGuid: Result := 'ftGuid';
  end;
end;

[Stilet]

Table1.Fields[i-тое].DataType

[Olg@]

Table1.Fields[i].DataType

Значит сразу списком никак?

[Olg@]

Сообщение от Serge_Bliznykov

Смотреть в датасете коллекцию TFields (ну и TField)
получить список типов можно примерно так (пишу здесь, если что - подправите):

      for I:=0 to Table1.FieldCount-1 do
          Memo1.Lines.Add(ShowTypeField(Table1.Fields[I].DataType));

Спасибо, все работает