Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Код для выявления уникальности(быстренький). [D5, Paradox]


dimich1978 ©   (2003-02-15 08:39:00) 

У меня вот какая задача. Есть база с такими вот данными
NameComp|Time|Data|
-------------------
Dispet3 1
Dispet3 3
Dispet3 5
ASU1 2
ASU1 7
ASU1 6
ASU1 45
Klient 11
Klient 12

Так вот из поля NameComp, мне необходимо выбрать все уникальные имена и положить в комбобох, т.е. результат должен быть такой,
итемсы в комбобох:
Dispet3
ASU1
Klient

Алгоритм который я использую отнимает кучу времени и не подходит, посоветуйте что можно сделать, может быть отфильтровать с каким нибудь параметром или еще что.
Заранее всем спасибо.


-=Sergeante=-   (2003-02-17 11:29:00) [1]

Либо TStringList.dublicates:=dubIgnore;


sunwheel   (2003-02-15 10:04:00) [2]

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("SELECT DISTINCT NameComp FROM table-name");
Query1.Open;


Наверх

Титульная страница Поиск, карта сайта Написать письмо