Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
13. Mär 2007
Wenn Du nur eine Zeile hast, hast Du keine fixed Zeile, das ist nun einmal so.
Dann mußt Du halt den Code zum befüllen des Grids entsprechend anpassen.
Zeile 0 ist dann die fixed Zeile
Zeile 1 ist leer, RowCount ist 2.
Zeile :=1; // hier die Startzeile eintragen
for i := 1 to <Anzahl Checkboxen) do
begin
if (FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).Checked then
...
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
13. Mär 2007
Ach so, Deine Tabelle hat schon eine bestimmte Anzahl an Zeilen.
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;
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
13. Mär 2007
StringGrid1.Cells:=(FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).caption;
Bei Dir/mir fehlte wohl eine Klammer.
Grüße
Klaus
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
13. Mär 2007
Sorry, mein Fehler, sollte so heißen.
StringGrid1.RowCount:=StringGrid1.rowCount +1;
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
13. Mär 2007
Hallo,
was ich meinte ist in diesem Beitrag Nr.5 zu finden.
Du mußt es nur etwas umbauen.
for i := 1 to <Anzahl Checkboxen) do
begin
if (FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).Checked then
begin
StringGrid1.RowCount:=StringGrid1.rowCount +1;
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
13. Mär 2007
Nun, ich würd sagen so will er es nicht.
Denn hier wird in den Zeilen etwas eingtragen egal ob die Checkbox angekreuzt ist oder nicht.
Du solltest die Checkboxen durchgehen (Stichwort: FindComponent) und wenn die Eigenschaft
checked true ist die caption in das StringGrid eintragen.
Grüße
Klaus