Delphi 保存动态列的列大小

我在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;

加载时，它的外观如下所示：

---

有人知道我能做些什么来正确地保存这些列，从而保存宽度吗？

因此，在与它坐了几个小时后，我决定，当我可以自己构建一些简单的东西时，没有理由与内置的东西进行如此多的斗争

在本例中，它只是保存到选定目录中的选定ini文件中。文件名和目录当前已硬编码到每个inhreited类。一个改变它们的特性可以很容易地实现。甚至可能是一个目录选择器到一个按钮或类似的东西

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

以及保存数据的代码（在FormClose上）：

---

有些人可能希望内置功能来检查Ini文件是否存在（即如果输入的路径正确）。但即使文件不存在，它也能顺利工作，只需创建它。

您是否尝试过自己处理保存/加载过程？您应该查看他们的代码，并检查它何时被调用。可能它不适合这种情况，或者您需要在需要时手动调用保存/加载功能。我尝试过自己管理保存和加载，是的。遗憾的是，这并没有什么变化。我建议在TMS支持论坛上发布。他们几乎总是在24小时内回复，我们很有可能他们会解决您的问题。此外，当收到TMS的答复时，请将其张贴在此处。遇到同样问题的人会为此感谢你，也许会请你喝杯啤酒：）我的主管不确定他在哪里有tms网站的登录信息，并告诉我暂时降低优先级。但是我构建了一个自定义的sulotion来加载列宽度并将其保存到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

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;

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;