Como se referir a uma coluna do DBGrid pelo nome?

Question

em um procedimento estou me referindo as colunas da DBGrid atraves dos �ncices das colunas. Mas acho que � mais seguro me referir pelo nome. como posso

Bon Jovi · Answer

Nao sei se a DBGrid tem fun��o pra isso. Sen�o fa�a algo assim:

Se vc tiver uma DBGrid sua:

function TSuaDBGrid.GetColumn(AFieldName: string): TColumn;
var
  i: integer;
begin
  Result := nil;
      
  for i := 0 to Self.Columns.Count - 1 do
  begin
    if AnsiUpperCase(Self.Columns[i].FieldName) = AnsiUpperCase(AFieldName) then
       Result := Self.Columns[i];
  end;  
end;

Sen�o, fa�a uma fun��o:

function GetColumn(ADBGrid: TDBGrid; AFieldName: string): TColumn;
var
  i: integer;
begin
  Result := nil;

  if not Assigned(ADBGrid) then
    Exit;

  for i := 0 to ADBGrid.Columns.Count - 1 do
  begin
    if AnsiUpperCase(ADBGrid.Columns[i].FieldName) = AnsiUpperCase(AFieldName) then
       Result := ADBGrid.Columns[i];
  end;  
end;