1、数据库列数可以用 TDATASET的FieldCount属性获得。2、数据库列名可以做一个循环得到,例如:vari:integerbegin for i := 0 to Table1.FieldCount-1 do showmessage(Table1.Fields[i].FieldName);end;