Ich habe eine Funktion welche mir nach erhalt der Zahl m den Namen mittels einer Case-Anweisung ausliefert. Die Funktion wird an mehreren Stellen im Quelltext verwendet und ist somit nicht veränderbar. m ist ein Integer.
Nun möchte ich wie im Quelltext dargestellt den Index einer Monatsbox auswählen, dessen Monat auf vorhanden ist. Jedoch weis ich nicht, wie ich einen Word-Typ in Integer konvertiere.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| var j, m, t: word; begin IF t <= 5 then begin MonatBox.ItemIndex := WelcherMonat(m);
end; end; |
Bin ich deppert....
Da die Box ja schon gefüllt ist, mach ich doch einfach das.
Delphi-Quelltext
1:
| MonatBox.ItemIndex := m; |