Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - ComboBox Auswahl elleganter lösen


Delete - Mo 05.01.09 03:51
Titel: ComboBox Auswahl elleganter lösen
- Nachträglich durch die Entwickler-Ecke gelöscht -


JayEff - Mo 05.01.09 04:43


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
case aEnumerative of
   1: showmessage('blah!');
   2 .. 4: showmessage('doppelblah!');
   5:
     begin
       Do(oneThing);
       Do(AnotherThing);
     end;
   10: Foo;
end;

aEnumerative kann meines wissens jeder Aufzählungsdatentyp sein, also Integer, aber auch Char oder sowas wie type aSet = (aOne, aTwo, aThree);
In deinem Fall wäre aEnumerative natürlich Combobox1.ItemIndex;


Delete - Mo 05.01.09 07:19

- Nachträglich durch die Entwickler-Ecke gelöscht -