Гость
Форумы / Delphi [игнор отключен] [закрыт для гостей] / как заполнить листбокс с несовпадающими значениями из какого нить поля? / 2 сообщений из 2, страница 1 из 1
05.01.2002, 12:01
    #32020214
kayan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как заполнить листбокс с несовпадающими значениями из какого нить поля?
сделал так но приходится пройтись по всей базе

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;
...
Рейтинг: 0 / 0
05.01.2002, 13:18
    #32020216
kayan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как заполнить листбокс с несовпадающими значениями из какого нить поля?
млин как же я не догадался:
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;
)
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / как заполнить листбокс с несовпадающими значениями из какого нить поля? / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]