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个固定行（用于标题）和一个空行。该行仅在那里，因为固定行的数量必须小于行数。将数据保存到.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文件中。文件名和目录当前是硬编码到每个inhreited类。可以轻松实现更改它们的功能。甚至可能是一个目录选择按钮或类似的东西。

加载代码（在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文件是否存在（即输入的路径是否正确）。但即使文件不存在，它也能顺利运行，它只会创建它。

保存动态列的列大小

1 个答案: