powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Хочу загрузить ComboBox из базы данных...
4 сообщений из 4, страница 1 из 1
Хочу загрузить ComboBox из базы данных...
    #32099363
Фотография marinel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все здрассте!
Вопрос в следующем...
В ComboBox хочу загрузить список из 1 поля БД, при этом одинаковые значения должны игнорироваться, а пустые пропускаться.

while not Form2.Table1.Eof do
begin
fOR I:=0 to Form2.cbModel.Items.Count do
begin
If Table1Model.Value='' then Table1.Next
else
if Table1Model.Value=cbModel.Items.Strings then Table1.Next;
end;
Form2.cbModel.Items.Add(Table1Model.AsString);
Table1.Next;
end;
end;

Нифига не получается:((( В чем моя ошибка?
...
Рейтинг: 0 / 0
Хочу загрузить ComboBox из базы данных...
    #32099374
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник


Это чего с чем сравниваешь?

Надо так:
Код: plaintext
if cbModel.Items.IndexOf(Table1Model.Value) > - 1  then Table1.Next;
...
Рейтинг: 0 / 0
Хочу загрузить ComboBox из базы данных...
    #32099375
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробуй использовать вместо компонента TTable компонент TQuery с запросом select distinct field1 from table1 where field1 is not null and field1 <> ''
...
Рейтинг: 0 / 0
Хочу загрузить ComboBox из базы данных...
    #32099378
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
P.S. Он вернет как раз набор непустых уникальных строк
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Хочу загрузить ComboBox из базы данных...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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