ComboBox zur Laufzeit füllen

[Peter Hennek]

Hallo, die ComboBox wird zur Laufzeit über eine Query gefüllt. Ist die Anzahl der Items in der ComboBox ungerade wird der String Spielfrei hinzugefügt. Das funktioniert mit dem unten angeführten Code. Dies muß ich aber 19 mal schreiben. Kann man dies auch kürzer programmieren. Eine Abfrage nach Items.Count gerade Zahl dann nicht Spielfrei, bei Items.Count ungerade Zahl dann Spielfrei. Danke für Tipps. Gruß ph.
<br>if (ComboBox3.Items.Count = 1)
<br>or (ComboBox3.Items.Count = 3)
<br>or (ComboBox3.Items.Count = 5)
<br>or (ComboBox3.Items.Count = 7)
<br>or (ComboBox3.Items.Count = 9)
<br>or (ComboBox3.Items.Count = 11) then
<br>begin
<br>ComboBox3.Items.Add('Spielfrei');
<br>end;

[Michael Eschenburg]

if (ComboBox3.Items.Count mod 2) > 0 then
ComboBox3.Items.Add('Spielfrei');

mod ergibt den Rest einer Division

Bsp. 5 mod 2 = 2 Rest 1
4 mod 2 = 2 Rest

[Ralph Staudte]

Peter,

oder Du verwendest folgende Funktion:

<PRE>
if Odd(ComboBox3.Items.Count) then ComboBox3.Items.Add('Spielfrei');
</PRE>

Grüße
Ralp