delphi - 保存动态列的列大小

Question

我在TMS的Tdbadvgrid工作。我正在基于sql查询长度动态添加列。除了节省列宽外，其他所有方法都运行良好。
添加列：

  //Captions
  for i := 0 to oRow.Count - 1 do
  begin
    grdFieldData.Columns.Insert(1);
    grdFieldData.Cells[i + 1, 0] := TabelList.Captions[i].Caption;
  end;

  //Data
  for r := 0 to TabelList.Count - 1 do //rows
  begin
    for c := 0 to oRow.Count - 1 do //cols
    begin
      grdFieldData.Cells[c+1, r+1] := TabelList.Rows[r].Fields[c].Value;
    end;
    if r <> TabelList.Count - 1 then
      grdFieldData.RowCount := grdFieldData.RowCount + 1;
  end;

现在，保存功能已内置到TMS TDBAdvGrid中，如下所示：


我已经尝试过所有选项，但是没有运气。

该表有1个固定行（用于标题）和1个空行。该行仅存在于此，因为固定行数必须小于行数。
将数据保存到.ini文件或注册表时，它会保存并加载第一列，但动态添加的列将作为默认值（64）写入，但在我拖动它们以调整大小时从未保存/加载。 .ini文件表如下所示：

[Recept]
Col0=20
Col1=97
Col2=64
Col3=64
Col4=64
Col5=64
Col6=64
Col7=64
Col8=64
Col9=64
Col10=64
Col11=64
Col12=64
Col13=64
Col14=64

加载后看起来像这样：


有谁知道我该怎么做才能正确保存列，以便保存宽度？

Answer 1

因此，在坐了几个小时之后，我认为当我自己可以自己构建一些简单的东西时，就没有理由为此付出太多努力了。

在这种情况下，它只是保存到选定目录中的选定ini文件。文件名和目录当前已硬编码到每个受干扰的类。更改它们的功能可以轻松实现。甚至是按钮或类似按钮的目录选择器。

加载代码（在FormShow上调用）：

procedure TfrmReceptEditor.LoadColWidths;
var
  Ini: TIniFile;
  i: Integer;
  path: String;
  filename: String;
begin
  inherited;
  path := 'C:\';
  filename := 'grid.ini';
  Ini := TIniFile.Create(path + filename);
  try
    for i := 0 to grdFieldData.ColCount - 1 do
    begin
      grdFieldData.Columns.Items[i].Width := Ini.ReadInteger('Recept','col'+IntToStr(i),75);
    end;
    grdFieldData.FixedColWidth := 20;
  finally
    Ini.Free;
  end
end;

和用于保存数据的代码（在FormClose上）：

procedure TfrmReceptEditor.SaveColWidths;
var
  Ini: TIniFile;
  i: Integer;
  path: String;
  filename: String;
begin
  inherited;
  path := 'C:\';
  filename := 'grid.ini';
  Ini := TIniFile.Create(path + filename);
  try
    for i := 0 to grdFieldData.ColCount - 1 do
    begin
      Ini.WriteInteger('Recept', 'col'+IntToStr(i), grdFieldData.Columns.Items[i].Width);
    end;
  finally
    Ini.Free;
  end;
end;

有些人可能想要构建功能来检查Ini文件是否存在（也就是如果输入的路径正确）。但是，即使文件不存在，它也可以顺利运行，它只会创建它。