这个问题就这么难吗？怎么没有人来回答...(大家帮忙呀！！！)

Question

请到下面的目录下看：http://community.csdn.net/Expert/topic/3867/3867592.xml?temp=.3185083
先谢谢啦

Answer 1

放一个TQuery，连接到数据库，SQL: 'select * from Table1'
procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
    Query1.Open;
    for i:=0 to Query1.FieldCount-1 do
        Memo1.Lines.Add(Query1.Fields[i].FieldName+':'+GetEnumName(TypeInfo(TFieldType),Integer(Query1.Fields[i].DataType))+':'+IntToStr(Query1.Fields[i].DataSize));
    Query1.Close;
end;

Answer 2

请问GetEnumName在哪个单元里？-_- -_- -_- -_- -_- -_- -_- -_- -_- -_- -_- -_-