怎么把Fields[xx].DataType转换成用字符类型输出？

Question

怎么把Fields[xx].DataType转换成用字符类型输出？

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);
 
 
 

Answer 2

各位，我是想把它显示出来而不是对它进行判断！
因为不同的数据库的数据类型是不一样的！
比如说oracle里的number类型怎么跟你上面的TFieldType对应？

Answer 3

function GetName(Value: TFieldType): string;
begin
  Result := GetEnumName(TypeInfo(TFieldType), Ord(Value));
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetName(Table1.Field[0].DataType));
end;