Дублирующие запиcи в ComboBox

[Siluet]

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

begin
     Table1.Open;
     Table1.First;
     CBox_stena.Items.Clear;
     while not Table1.Eof do
     begin
          CBox_stena.Items.Add(Table1.fieldbyname('Stena').AsString);
          Table1.Next;
     end;
end;

и получится вот это

[Sparkman]

begin
     Table1.Open;
     Table1.First;
     CBox_stena.Items.Clear;
     while not Table1.Eof do
     begin
          if CBox_stena.Items.IndexOf(Table1.fieldbyname('Stena').AsString)=-1 then
          CBox_stena.Items.Add(Table1.fieldbyname('Stena').AsString);
          Table1.Next;
     end;
end;

[Siluet]

Sparkman
Об этом Я мечтал весь вчерашний вечер)) Спасибо)

[CIIayHeHoK]

Когда у меня вопрос такой возникал, то я делал так:

Добавляешь на форму ADOConnection1 и ADOTable1 и пишешь на форме в FormCreate:

procedure TForm1.FormCreate(Sender: TObject);
var isfound: boolean;
var i: integer;
begin

try
  ADOTable1.Active := False;
  ADOTable1.TableName := 'Имя таблицы';
  ADOTable1.Active := True;
except
  on EDatabaseError do
  begin
    Application.MessageBox('Невозможно открыть базу данных.', 'Ошибка', MB_ICONERROR);
    Halt;
  end;
end;

While not ADOTable1.EOF do
begin
isfound:=False;
for i:=0 to ComboBox1.Items.Count-1 do
if ComboBox1.Items[i]=ADOTable1.FieldByName('Имя столбца в таблице').AsString then
begin
  isfound:=True;
  break;
end;
if not isfound then
  ComboBox1.Items.Add(ADOTable1.FieldByName('Имя столбца в таблице').AsString);
  ADOTable1.Next;
end;

end;