Thema: CheckListBox

Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#10

Re: CheckListBox

  Alt 29. Jun 2009, 00:50
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.
  Mit Zitat antworten Zitat