Checkbox.Caption in Stringgrid

[Klaus01]

Hallo,

was ich meinte ist in diesem Beitrag Nr.5 zu finden.
Du mußt es nur etwas umbauen.

Delphi-Quellcode:

for i := 1 to <Anzahl Checkboxen) do 
begin 
    if (FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).Checked then 
      begin
        StringGrid1.RowCount:=StringGrid1.rowCount +1;
        StringGrid1.Cells[1,StringGrid1.rowCount-1]:=(FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).caption;
      end;
end;

Grüße
Klaus