Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
05.01.2002, 12:01
|
|||
---|---|---|---|
|
|||
как заполнить листбокс с несовпадающими значениями из какого нить поля? |
|||
#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, 13:18
|
|||
---|---|---|---|
|
|||
как заполнить листбокс с несовпадающими значениями из какого нить поля? |
|||
#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; ) ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=58&mobile=1&tid=2120080]: |
0ms |
get settings: |
8ms |
get forum list: |
11ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
51ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
31ms |
get tp. blocked users: |
1ms |
others: | 13ms |
total: | 135ms |
0 / 0 |