DBGrid の列の状態を保存する

TDBGrid はエンドユーザーが各列の幅を変更したり、列の順序を入れ替えたりできます。
しかしこれを保存し、次回起動時に復元するのは当然ですが自動化されていません。
これをコードで実装するのはとても簡単です。メソッド一発で OKです。

■ DBGridの各列の状態を保存・復元する例 
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    //保存する
    DBGrid1.Columns.SaveToFile(ExtractFilePath(ParamStr(0)) + 'col.dat');
  end;

  procedure TForm1.Button2Click(Sender: TObject);
  begin
    //復元する
    DBGrid1.Columns.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'col.dat');
  end;