[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;

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