ComboBox Auswahl elleganter lösen

Ehemaliges Mitglied Erhaltene Danke: 1

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

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

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;

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Ehemaliges Mitglied Erhaltene Danke: 1

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme