salvar coluna de varios dbgrid em um arquivo

[vms]

ola pessoal

uso esse codigo abaixo para salvar e carregar posição das colunas do dbgrid

o problemas é que se tenho 5 DBGrid, logo tenho que gerar 5 arquivos de configuração.

existe alguma forma de salvar a configuração desses 5 DBGrid em um arquivo apenas?

DBGrid2.Columns.SaveToFile(ExtractFilePath(Application.ExeName) + 'GridSai.ini');
DBGrid2.Columns.LoadFromFile(ExtractFilePath(Application.ExeName) + 'GridSai.ini');

[Jhonas]

uso esse codigo abaixo para salvar e carregar posição das colunas do dbgrid

o problemas é que se tenho 5 DBGrid, logo tenho que gerar 5 arquivos de configuração.

existe alguma forma de salvar a configuração desses 5 DBGrid em um arquivo apenas?

Experimente dessa maneira

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  for i := 0 to ComponentCount -1 do
    begin
      if Components[i] is TDBGrid then
         begin
            TDBGrid(Components[i]).Columns.SaveToFile(ExtractFilePath(Application.ExeName) + 'GridSai.ini');
            TDBGrid(Components[i]).Columns.LoadFromFile(ExtractFilePath(Application.ExeName) + 'GridSai.ini');
         end;
    end;
end;

abraço