怎么写取数据表中各字段的类型？

Question

RT

Answer 1

if Dataset.FieldDefs.Items[0].DataType=ftstring then
         Edit2.text:='ftString';
　或　if Dataset.FieldByName(FieldName').DataType=ftstring then
    　　　edit2.text:='ftString';
字段类型有如下：
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid);