在FireMonkey Delphi XE2中更改ColumnCount

Question

我正在嘗試在Delphi XE2 Firemonkey中從文件加載stringgrid。 當我在Delphi中進行操作時，它看起來像這樣：

procedure TForm1.File2StringGrid(Sender: TObject);
var
F: TextFile;
 Tmp, x, y: Integer;
TmpStr: string;
begin
AssignFile(F, (ExtractFilePath(ParamStr(0))+'stringgrid1.sgf'));
Reset(F);
Readln(F, Tmp);
StringGrid1.ColumnCount:=Tmp;

Readln(F, Tmp);
StringGrid1.RowCount:=Tmp;
for x:=0 to StringGrid1.ColumnCount-1 do
for y:=0 to StringGrid1.RowCount-1 do
begin
  Readln(F, TmpStr);
  StringGrid1.Cells[x,y]:=TmpStr;
 end;
CloseFile(F);
end;

在Firemonkey中，它會出錯：[DCC錯誤] Unit1.pas（179）：E2129無法分配給以下行中的只讀屬性：StringGrid1.ColumnCount：= Tmp;

任何想法如何解決它？

Answer 1

從文檔：

property ColumnCount: Integer read GetColumnCount;
...
Set ColumnCount to add or delete columns at the right side of the grid.

因此，文檔與源不匹配。

請嘗試以下操作：

while StringGrid1.ColumnCount < Tmp do
  StringGrid1.AddObject(TStringColumn.Create(StringGrid1));