アルファベット順にソートされたコンンボボックスの作成
| 日付 | 2002/02/08 |
|---|---|
| ID | 01-837 |
| バージョン | 6.5.x and 6.7.x |
| プラットフォーム | Windows and Mac OS |
コードは、種類以下にそれが付けられるコンンボボックスの内容について記述しました。ユーザが値を入力する場合、2つのケースが可能です:
値は、既にコンンボボックスに存在します。- この場合、入力された値を含んでいる要素はコンンボボックスの現在の要素になります。
値はコンンボボックスに存在しません。- 値はコンンボボックス配列の中で作成されます。また、配列がソートされます。
Case of
: (Form event=On Data Change )
If (Find in array(ComboBox1;Combobox1{0})<0)
INSERT ELEMENT(ComboBox1;Size of array(comboBox1)+1)
ComboBox1{Size of array(ComboBox1)}:=ComboBox1{0}
SORT ARRAY(ComboBox1)
Else
ComboBox1:=Find in array(ComboBox1;Combobox1{0})
End if
End case