|
|
|
как заполнить листбокс с несовпадающими значениями из какого нить поля?
|
|||
|---|---|---|---|
|
#18+
сделал так но приходится пройтись по всей базе var str:String; i:Integer; begin while not Query1.Eof do begin str:= Query1.FieldByName('genre').AsString; if ComboBox_Genre.Items.Count <> 0 then begin for i:=0 to ComboBox_Genre.Items.Count-1 do begin if ComboBox_Genre.Items = str then break; if (i = (ComboBox_Genre.Items.Count-1)) and (str <> '') then ComboBox_Genre.Items.Add(str); end; end else ComboBox_Genre.Items.Add(str); end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.01.2002, 12:01 |
|
||
|
как заполнить листбокс с несовпадающими значениями из какого нить поля?
|
|||
|---|---|---|---|
|
#18+
млин как же я не догадался: Query1.SQL.Text:= 'select distinct fieldName from dbName'; Query1.Open; while not Query1.Eof do begin ComboBox.Items.Add(Query1.FieldByName('fieldName').AsString); Query1.Next; end; ) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.01.2002, 13:18 |
|
||
|
|
start [/forum/topic.php?fid=58&msg=32020214&tid=2120080]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
159ms |
get topic data: |
13ms |
get forum data: |
2ms |
get page messages: |
40ms |
get tp. blocked users: |
2ms |
| others: | 14ms |
| total: | 259ms |
| 0 / 0 |
Извините, этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
... ля, ля, ля ...
