Database.GetFieldNames FFieldCount := ADOQuery.FieldCount; //字段数 ADOQuery.GetFieldNames(strFieldname); //字段名字 FFieldList.Clear; for i := 0 to FFieldCount-1 do begin strFieldtype := ADOQuery.Fields.Fields[i].DataType; //字段类型 strFieldsize := ADOQuery.Fields.Fields[i].DisplayWidth; //字段长度 end;
FFieldCount := ADOQuery.FieldCount; //字段数
ADOQuery.GetFieldNames(strFieldname); //字段名字
FFieldList.Clear;
for i := 0 to FFieldCount-1 do
begin
strFieldtype := ADOQuery.Fields.Fields[i].DataType; //字段类型
strFieldsize := ADOQuery.Fields.Fields[i].DisplayWidth; //字段长度
end;