DELPHI怎么获取SQL指定字段的字段类型？

Question

如题

Answer 1

uses typeinfo;

procedure TForm1.Button1Click(Sender: TObject);
var
c : TFieldType;
begin
c := ftString;
//根据enum得到字符串
showmessage(GetEnumName(Typeinfo(TFieldType),Ord(c)));
// 根据字符串得到枚举类型
c := TFieldType(GetEnumValue(Typeinfo(TFieldType),'ftInteger'));
showmessage(GetEnumName(Typeinfo(TFieldType),Ord(c)));
end;

Answer 2

select * from 数据库.dbo.syscolumns where object_name(id)='表名' var
name: string;
FieldType: TFieldType;
i, size: integer;
begin
for i := 0 to ads.Fields.Count - 1 do
begin
name := ads.Fields[i].FieldName; //列名
FieldType := ads.Fields[i].DataType; //字段类型
size := ads.Fields[i].DataSize; //字段长度
end;
end;