将DBGrid 当前列定位到指定的字段上

//--------------------------------------------------------------------------------
// 功能：将 dbgrid 当前列定位到某字段上。
// 参数： pdbgrid:tdbgrid;        dbgrid
//              pcfieldname : string    数据表字段名，字段名不区分大小写
// 返回：当表字段在 dbgrid 中存在时，返回表字段所在的列的序号，首序号为0
//             否则，返回 -1
// 引用：getdbgridcolumnindex(  );
// 例如：setdbgridcolumn( dbgrid1, 'price' );
//--------------------------------------------------------------------------------
function setdbgridcolumn( pdbgrid:tdbgrid; pcfieldname : string  ):integer;
var ncol : integer ;
begin
  result := getdbgridcolumnindex( pdbgrid, pcfieldname );
  if ncol >= 0 then pdbgrid.selectedindex := result ;
end;

例子：

    setdbgridcolumn( dbgrid1, 'price'  );
    将dbgrid1的当前列定位到字段price上。