Hier ein Beispiel für eine CheckListBox in der sich die Werte aus der Case Anweisung von oben befinden:
Delphi-Quellcode:
var
i: Integer;
s: String;
begin
s := '';
with CheckListBox1 do
for i := 0 to Count - 1 do
if Checked[i] then
if s = '' then s := Items[i]
else s := s + ', ' + Items[i];
ShowMessage(s);
end;
Alle gecheckten Werte bilden eine Aufzählung.