如何判断一个字段的类型？

Question

我用query连接了一个表，有i个字段，我想取出表内所有字段的类型，
并判断字段类型是否为字符串型，请问我该怎么做？

Answer 1

Case DesTable.Fields[i].DataType of
        ftString   : ListItem.SubItems.Add('String') ;
        ftSmallint : ListItem.SubItems.Add('SmallInt') ;
        ftAutoInc  : ListItem.SubItems.Add('Integer') ;
        ftInteger  : ListItem.SubItems.Add('Integer') ;
        ftWord     : ListItem.SubItems.Add('Word') ;
        ftBoolean  : ListItem.SubItems.Add('Boolean') ;
        ftFloat    : ListItem.SubItems.Add('Float') ;
        ftDate     : ListItem.SubItems.Add('Data') ;
        ftTime     : ListItem.SubItems.Add('Time') ;
        ftDateTime : ListItem.SubItems.Add('DataTime') ;
        ftBlob     : ListItem.SubItems.Add('Blob') ;
        ftMemo     : ListItem.SubItems.Add('Memo') ;
        ftFmtMemo  : ListItem.SubItems.Add('FmtMemo') ;
      end;

Answer 2

var i:Integer;
begin
 DataModule1.WordData.Open;
 for i:=0 to DataModule1.WordData.RecordCount do
  if DataModule1.WordData.Fields[i].DataType=ftString then
  begin
    ShowMessage(DataModule1.WordData.Fields[i].FieldName+'的字段类型是：字符串型！');
    DataModule1.WordData.Next;
  end;
  DataModule1.WordData.Close;
end;