selber erkennen von CheckBox

[tigerman33]

Wenn du in der Tag property der Checkboxes den Preisaufschlag speicherst, geht auch folgendes:

Delphi-Quellcode:

for i := 0 to Form1.ControlCount - 1 do
  if Form1.Controls[i] is TCheckbox then
    GesamtPreis := GesamtPreis + Form1.Controls[i].Tag;