Stringrid Zeilen hinzufügen und löschen

[schuetzejanett]

ja ich sehe sie ja auch erhalte nur erhalte nur manchmal eine exception beim hinzufügen oder löschen

hier mal der ausschnitt des codes wo ich die stringgrids initialisiere , erstelle

Delphi-Quellcode:

private
    astringgrid: array of TStringgrid;

...

setlength(astringgrid,playerList.Count);

for j := Low(TabTitles) to High(TabTitles) do
              begin
                atabsheet[j] :=  TTabSheet.Create(aPageControl[i]) ;
                with atabsheet[j] do
                  begin
                    PageControl := aPageControl[i];
                    Name := 'ts' + TabTitles[j];
                    Caption := TabTitles[j];
                    astringgrid[(i*2+j)] :=  TStringgrid.Create(atabsheet[j]);
                    with  astringgrid[(i*2+j)] do
                      begin
                        parent := atabsheet[j];
                        top:=5;
                        width := 140;
                        defaultrowheight := 15;
                        scrollbars := ssvertical;
                        if j = 0 then
                          begin
                            rowcount := 2;
                            colcount := 4;
                            fixedrows := 1;
                            defaultcolwidth := 40;
                            colwidths[0] := 20 ;
                            cells[1,0]:= '1';
                            cells[2,0]:= '2';
                            cells[3,0]:= '3';
                          end
                        else
                          begin
                            colcount := 2;
                            fixedCols := 0;
                            defaultcolwidth := 60;
                            cells[0,0]:= 'Feld';
                            cells[1,0]:= 'Treffer';
                            afields := playerList.Player[i].fields;
                            rowcount := length(afields);
                            for k := 0 to high(afields) do
                              begin
                                cells[0,k+1] := inttostr(afields[k].field);
                                Cells[1,k+1] := inttostr(afields[k].anz);
                              end;//for
                          end;//else
                      end;//with stringgrid(2i+1)
                  end;//atabsheet[j]
               end;//for tabtitles

und jetzt wo ich eine zeile hinzufüge

Delphi-Quellcode:

 row := (astringgrid[currentplayerID *2].rowcount);
  astringgrid[currentplayerID *2].rowcount := (row +1);
  astringgrid[currentplayerID *2].Cells[0,row-1] := inttostr(row-1);
  astringgrid[currentplayerID *2].Cells[1,row-1] := points[0];
  astringgrid[currentplayerID *2].Cells[2,row-1] := points[1];
  astringgrid[currentplayerID *2].Cells[3,row-1] := points[2];