将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上。