delphi - 在运行时添加 stringgrid 列

Question

我在网上找到了很多解决方案，但它们都不起作用，因为 StringGrid1.ColumnCount 属性是只读的。我正在使用 Delphi 10 Seattle。

我有一个 StringGrid1，我需要在运行时添加列。具体来说，我必须根据 TList 的大小添加列。特别是:

var a: TList<double>;
begin

 //fill the TList...

 for i := 0 to a.Count - 1 do
  begin
   StringGrid1.AddColumn(); //how can I do this?
  end;

end;

我发现这在 Lazarus 上非常容易(但它当然有 FPC)但在 Delphi 上我真的不知道该怎么做。我正在研究 Firemonkey。

Answer 1

使用网格的AddObject()或 InsertObject()添加所需对象实例的方法 TColumn - 派生类，如 TStringColumn .列对象将添加到网格的 Columns大批。 ColumnCount属性只返回数组中的列数，这就是它是只读的原因。