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;