Home » Tipps & Tricks » Komponenten » TStringGrid » StringGrid eine Spalte hinzufügen

StringGrid eine Spalte hinzufügen

Untenstehende Prozedur fügt einem StringGrid eine Spalte hinzu. Im Parameter NewColumn wird angegeben an welcher Position die Spalte hinzugefügt werden soll. Die Spalte wird links neben der angegebenen Spalte eingefügt. Die Zelleninhalte der Spalten werden dabei verschoben.

procedure GridAddColumn(const Grid: TStringGrid; NewColumn: Integer); 
Var
  I: Integer;
begin
  Grid.ColCount := Grid.ColCount+1; 
  For I:= Grid.ColCount-1 downto NewColumn do
    Grid.Cols[I].Assign(Grid.Cols[I-1]); 
  Grid.Cols[NewColumn-1].Text := '';
end;

Folgendes Beispiel fügt links neben der Spalte ‚1‘ eine Spalte hinzu:

procedure TForm1.Button1Click(Sender: TObject);
begin
  GridAddColumn(StringGrid1,1);
end;