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;
OK, danke, ist geändert, allerdings habe ich den EListError immer noch. Irgendwas Anderes ist da noch verkehrt. Ich sehe aber nicht, was, vielleicht sollte ich für heute aufhören und Abstand gewinnen und übers WE noch mal schauen.