Dbgrid 中表字段所在的列序号

//--------------------------------------------------------------------------------
// 功能：返回表字段在 DBGrid 列中的序号，首序号为0
// 参数： pDbGrid:TDbGrid;        DBGrid
//               pcFieldName : string    数据表字段名，字段名不区分大小写
// 返回：当表字段在 DBGrid 中存在时，返回表字段所在的列的序号，首序号为0
//             否则，返回 -1
//例子：DbGrid1.SelectedIndex := GetDbGridColumnIndex( DbGrid1, ''''Price''''  );
//--------------------------------------------------------------------------------
Function GetDbGridColumnIndex( pDbGrid:TDbGrid; pcFieldName : string  ):integer;
var nFldLoop : integer ;
    cFldName : string ;
begin
  Result := -1 ;
  For nFldLoop := 0 to pDbGrid.Columns.Count-1 do
  begin
      cFldName := pDbGrid.Columns[nFldLoop].FieldName ;
      If uppercase(pcFieldName) = uppercase( cFldName ) then
      begin
         Result := nFldLoop ;
         exit ;
      end;
  end;
end;

例子：

    DbGrid1.SelectedIndex := GetDbGridColumnIndex( DbGrid1, ''''Price''''  );
    将DbGrid1的当前列定位到字段Price上。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18