[cyborgg4655]

Добрый день! Нужно чтобы одинаковые значения в ComboBox не повторялись. Данные берутся из таблицы, нужно чтобы на выходе одинаковых строк небыло.
Пробую такие варианты:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

var a1:string; a2:string; a3:string; a4:string; i:integer; begin ADOQuery6.First; while not ADOQuery6.Eof do begin a1:=ADOQuery6.FieldByName('Корпус').AsString; a2:=ADOQuery6.FieldByName('Ряд').AsString; a3:=ADOQuery6.FieldByName('Место').AsString; a4:=ADOQuery6.FieldByName('Ярус').AsString; Label7.Caption:=Format('%s:%s-%s/%s',[a1,a2,a3,a4]); for i := 0 to Combobox6.Items.Count - 1 do if Combobox6.Items.Strings[i]=Label7.Caption then begin ADOQuery6.Next; end; if Combobox6.Items.Strings[i]<>Label7.Caption then begin ComboBox6.Items.Append(Format('%s:%s-%s/%s',[a1,a2,a3,a4])); ADOQuery6.Next; end; end; end;

Но не получается..

[Aristarh Dark]

Сделай изначально запрос без посторений и все.

[cyborgg4655]

Сообщение от Aristarh Dark

Сделай изначально запрос без посторений и все.

Если не сложно, поясни пожалуйста, а то до меня не дошло((

[poli-smen]

Сообщение от cyborgg4655

Добрый день! Нужно чтобы одинаковые значения в ComboBox не повторялись. Данные берутся из таблицы, нужно чтобы на выходе одинаковых строк небыло.
Пробую такие варианты:

Код:

Но не получается..

Что-то здесь сильно наворочено. Вот так будет проще и правильней:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var   a1, a2, a3, a4: string; begin   ADOQuery6.First;   while not ADOQuery6.Eof do   begin     a1 := ADOQuery6.FieldByName('Корпус').AsString;     a2 := ADOQuery6.FieldByName('Ряд').AsString;     a3 := ADOQuery6.FieldByName('Место').AsString;     a4 := ADOQuery6.FieldByName('Ярус').AsString;     Label7.Caption := Format('%s:%s-%s/%s', [a1, a2, a3, a4]);     if ComboBox6.Items.IndexOf(Label7.Caption)<0 then ComboBox6.Items.Add(Label7.Caption);     ADOQuery6.Next;   end; end;

Ну или если есть возможность переделай как советует Aristarh Dark SQL-запрос, что-бы он не выдавал повторяющихся записей.

[cyborgg4655]

Сообщение от poli-smen

Что-то здесь сильно наворочено. Вот так будет проще и правильней:

Код:

Ну или если есть возможность переделай как советует Aristarh Dark SQL-запрос, что-бы он не выдавал повторяющихся записей.

В SQL я послабее чем в delphi, поэтому для меня этот вариант будет проще) Спасибо, все заработало!)

[M.A.D.M.A.N.]

Код:

1	select distinct поля from таблица where условия

И не надо вызывать IndexOf и т.д.

Мой вариант быстрее и лучше, ИМХО

[NumLock]

а если еще поля сконкатенировать прямо в запросе, то и Format не нужен. цикл будет из 2=х строк:

Код:

1 2	.Add(.FieldByName()) .Next