Изменение ColumnCount в FireMonkey Delphi XE2

Question

Я пытаюсь загрузить строковую сетку из файла в Delphi XE2 Firemonkey. Когда я делаю это в 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 Error] 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));