Aber warum bekomme ich den EListError?
Könnte es sein, dass hier die beiden letzten Zeilen noch in die For-Schleife gehören und da lediglich ein Begin/End fehlt? (Der Compiler sollte eine Warnung liefern!)
Delphi-Quellcode:
for ACol := 0 to FCols-1 do TStringList(FRowsContainer.Items[ARow]).AddObject(' ', TGridColumn.Create(self));
TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Width := FColWidth;
TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Height := FRowHeight;
Besser wäre aber das ganze wie oben schon erwähnt mit einer lokalen Variable zu lösen:
Delphi-Quellcode:
for ACol := 0 to FCols-1 do begin
var gridColumn := TGridColumn.Create(self);
gridColumn.Width := FColWidth;
gridColumn.Height := FRowHeight;
TStringList(FRowsContainer.Items[ARow]).AddObject(' ', gridColumn);
end;