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

[Siluet]

var i:integer;
label m;
begin
 Table1.Open;
  Table1.First;
  Table1.Edit;

while not Table1.Eof do begin
i:=0;
CBox_stena.Items.Add(Table1.fieldbyname('Stena').AsString);
Table1.Next;
  m:
  repeat
  CBox_stena.ItemIndex:=i;
  Table1.Next; 
  if CBox_stena.Text=Table1.fieldbyname('Stena').AsString then begin
  goto m;
  end;
  inc(i);
  until i=CBox_stena.Items.Count;
   end;

собсна вот! есть одинаковые записи.. понятия не имею как убрать..
код слегка изощренный..

[Sparkman]

1) в запросе использовать distinct или group by;
2) либо построчно сравнивать вводимое в комбобокс значение:

function inCombo(combo:TComboBox;slovo:string):boolean;
var i:integer;
begin
     result:=false;
     for i:=0 to combo.Items.Count-1 do
     if combo.Items.Strings[i]=slovo then
     begin
          result:=true;
          break;
     end;
end;

[Siluet]

Sparkman
Не понимаю как это работает. Прикрепи готовый проек пожалуйста

[art-programs]

2) либо построчно сравнивать вводимое в комбобокс значение:

тогда быстрее будет использовать для поиска повтора стандартное:

if combo.Items.indexof(slovo)>-1 then
result:=true;

Не понимаю как это работает. Прикрепи готовый проек пожалуйста

что тут не понимать?
это функция проверки на дубль при добавлении
каждый раз когда добавляешь запись в комбо, проверяй:

if not inCombo(CBox_stena,Table1.fieldbyname('Stena').AsString) then
CBox_stena.Items.Add(Table1.fieldbyname('Stena').AsString);

куда проще? [офтоп]привет уфе) [/]

[Siluet]

Прикрепите готовый проек пожалуйста

[art-programs]

var i:integer;
label m;
begin
 Table1.Open;
  Table1.First;
  Table1.Edit;

while not Table1.Eof do begin
i:=0;
if CBox_stena.Items.indexof(Table1.fieldbyname('Stena').AsString)<0 then
CBox_stena.Items.Add(Table1.fieldbyname('Stena').AsString);
Table1.Next;
  m:
  repeat
  CBox_stena.ItemIndex:=i;
  Table1.Next; 
  if CBox_stena.Text=Table1.fieldbyname('Stena').AsString then begin
  goto m;
  end;
  inc(i);
  until i=CBox_stena.Items.Count;
   end;

[Siluet]

программа зависает (зацикливается)

[art-programs]

  m:
  repeat
  CBox_stena.ItemIndex:=i;
  Table1.Next; 
  if CBox_stena.Text=Table1.fieldbyname('Stena').AsString then begin
  goto m;
  end;
  inc(i);
  until i=CBox_stena.Items.Count;

вот где-то здесь и зацикливается, наверно
что вы вообще вот в этом куске делаете?
тут ужас прям какой код

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