Ach so, Deine Tabelle hat schon eine bestimmte Anzahl an Zeilen.
Delphi-Quellcode:
Zeile :=1; // hier die Startzeile eintragen
for i := 1 to <Anzahl Checkboxen) do
begin
if (FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).Checked then
begin
if Zeile >= StringGrid1.RowCount -1 then
StringGrid1.RowCount:=StringGrid1.rowCount +1;
StringGrid1.Cells[1,Zeile]:=(FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).caption;
inc(Zeile);
end;
end;
und zeile noch als Variable im Buttonklick vereinbaren.
Grüße
Klaus