Abbildung von Column.Field auf Column

[Rabenrecht]

Hat man ein Column Objekt (Vcl.DBGrids.TColumn) kann man einfach auf das dazugehörige Field (Data.DB.TField) zugreifen.

Geht das auch andersherum? Dh. wenn ich lediglich ein Field Objekt habe, kann ich davon irgendwie Rückschlüsse auf die dazugehörige Column ziehen?
Mir geht es dabei um den Spaltenindex.

Ich habe es mit Field.FieldNo , aber damit hat mein Code zur Laufzeit Fehler produziert, denen ich gerade nachgehe.

[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.

[Rabenrecht]

An so einen Holzhammer-Ansatz habe ich gar nicht gedacht. Klappt aber! :)