如题
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;
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;
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-06-23
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;本回答被网友采纳
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;本回答被网友采纳
