Stringrid Zeilen hinzufügen und löschen

[marabu]

Guten Morgen,

hier etwas Hilfe zur Selbsthilfe:

Delphi-Quellcode:

var
  i, iGrid, iRow: Integer;
  sg: TStringGrid;
begin
  // ...
  iGrid := currentplayerID * 2;
  if iGrid in Low(aStringGrid) to High(aStringGrid) then
  begin
    sg := aStringGrid[iGrid];
    if Assigned(sg) then
    begin
      iRow := (sg.RowCount);
      sg.RowCount := Succ(iRow);
      sg.Cells[0, iRow] := IntToStr(iRow); 
      for i := Low(points) to High(points) do
        sg.Cells[Succ(i), iRow] := points[i];
    end else ShowMessage('grid missing')
  end else ShowMessage('grid index out of bounds');
  // ...
end;

Grüße vom marabu