Count Checkbox?

[marabu]

Hallo Tommy,

viele Wege führen nach Rom:

Delphi-Quellcode:

var
  n: Word;
begin
  n := 0;
  if CheckBox1.Checked then n := n + 1; 
  if CheckBox2.Checked then Inc(n);
  Inc(n, Ord(CheckBox3.Checked));

  Edit.Text := IntToStr(n);
end;

Grüße vom marabu