[cyborgg4655]

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

Код:

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 не повторялись. Данные берутся из таблицы, нужно чтобы на выходе одинаковых строк небыло.
Пробую такие варианты:

Код:

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;

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

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

Код:

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

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

Код:

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-запрос, что-бы он не выдавал повторяющихся записей.

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

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

Код:

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

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

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

[NumLock]

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

Код:

.Add(.FieldByName())
.Next