Dataset.Fields[i].DataType in [ftInteger, ftWord, ftSmallint, ftAutoInc,
          ftFloat, ftCurrency, ftDate, ftTime, ftDateTime]
可以这样判断
if dataset.Fields[0].DataType = ftSmallint then .....