Abbildung von Column.Field auf Column

[DeddyH]

Zur Not ganz billig:

Delphi-Quellcode:

function GetGridColumnIndexOfField(const Grid: TDBGrid; const Field: TField): integer;
var
  i: integer;
begin
  Assert(Assigned(Grid) and Assigned(Field), 'Grid und Feld müssen zugewiesen sein');
  Result := -1;
  for i := 0 to Grid.Columns.Count - 1 do
    if Grid.Columns[i].Field = Field then
      begin
        Result := Grid.Columns[i].Index;
        break;
      end;
end;

Es geht bestimmt auch eleganter, aber Deine Anforderung hatte ich selbst noch nie.