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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有