Neu erzeugte Columns automatisch mit text füllen

[rhodan]

zum besseren verständnis hier nochmal der gesamte code der auf knopfdruck ne neue column anlegt in beiden stringgrids

Delphi-Quellcode:

procedure TForm2.neuermitarbeiterClick(Sender: TObject);
var
 Column: Integer;
 NewColumn: Integer;
begin
  Grid.ColCount := Grid.ColCount + 1;
  proviGrid.ColCount := proviGrid.ColCount + 1;

  for Column := Grid.ColCount - 1 downto NewColumn do
    Grid.Cols[Column].Assign(Grid.Cols[Column - 1]);
    for Column := proviGrid.ColCount - 1 downto NewColumn do
    proviGrid.Cols[Column].Assign(proviGrid.Cols[Column - 1]);

  Grid.cells[NewColumn - 1,0] := '';
  proviGrid.cells[NewColumn - 1,3] := 'test';
  if grid.Colcount > 9 then
  grid.Colcount:=9;
   if provigrid.Colcount > 9 then
  provigrid.Colcount:=9;
end;

die zeile

 proviGrid.cells[NewColumn - 1,3] := 'test'; hab ich jetzt nur zu testzwecken verändert aber es tut sich nichts beim erstellen einer neuen column texttechnisch

ps: sorry für doublepost

[Perlsau]

Kannst du mir mal zeigen, wo die Integer-Variable NewColumn initialisiert wird?

[rhodan]

genau das scheine ich verschwitzt zu haben -.- die taucht nur in dem code auf den ich geposted habe.
offensichtlich gar nichts deshalb tut sich auch nichts. ich probiers selbst nochmal

[Perlsau]

Kein Wunder, daß sie sonst nirgendwo auftaucht, ist ja auch eine lokale Variable, die bei ihrer ersten Verwendung irgend einen zufälligen Wert besitzt. Damit schreibst du in eine Spalte, die es gar nicht gibt, womit sich auch erklärt, daß du deinen Text nirgendwo zu Gesicht bekommst.