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

@Siluet · Регистрация: 13.03.2011

Author24 — интернет-сервис помощи студентам

http://linkme.ufanet.ru/images... fab103.jpg

Код

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;

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

@reiteriX · 19.05.2011, 23:36

Запросом чтоль получаете? SQL ? Тогда => Distinct

А вообще мой вариант:
Цикл по записям Table 1. Находите запись, залезаете в другой цикл (внутри этого) по всему комбобоксу. "Пробегаете" по всему Items сравнивая каждую строку с вашим текущим значением из Table1. Если строки вашей в Items нету, то добавляете, а если есть, то переходите к следующей записи вашего Table1. Если сортировка нужна то у КБ свойство Sorted

@Siluet · 19.05.2011, 23:43 **[ТС]**

Да Я примерно так и пытаюсь сделать.. но программа зависает

Код

while not DataModule5.T_otsek.Eof do begin
i:=0;
repeat
if CBox_stena.Items.Strings[i]=DataModule5.T_otsek.fieldbyname('Stena').AsString
then DataModule5.T_otsek.Next;
inc(i);
until i<=CBox_stena.Items.Count;
CBox_stena.Items.Add(DataModule5.T_otsek.fieldbyname('Stena').AsString);
DataModule5.T_otsek.Next;
   end;

@reiteriX · 20.05.2011, 00:00

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

while not

может if not ?

Погляди где зацикливается через отладку.

Добавлено через 9 минут

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

Код

while not DataModule5.T_otsek.Eof do begin

Пока DataModule5.T_otsek не пустой.... А когда это он опустеет то? Сам точно не опустеет. Next это лишь переход к следующему кортежу

@Siluet · 20.05.2011, 09:54 **[ТС]**

Погляди где зацикливается через отладку.

эт Я незнаю как делать..

while not DataModule5.T_otsek.Eof do begin

это строчка говорит "пока не конец строки"

Добавлено через 9 часов 39 минут
Решено:

Код

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 0 / 0 / 0 Регистрация: 13.03.2011 Сообщений: 12
		1
	Дублирующие запиcи в ComboBox 19.05.2011, 23:03. Показов 978. Ответов 4 Метки нет (Все метки) http://linkme.ufanet.ru/images... fab103.jpg Код 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; собсна вот! есть одинаковые записи.. понятия не имею как убрать.. код слегка изощренный.. 0

@reiteriX 685 / 241 / 13 Регистрация: 02.04.2009 Сообщений: 692
	19.05.2011, 23:36	2
	Запросом чтоль получаете? SQL ? Тогда => Distinct А вообще мой вариант: Цикл по записям Table 1. Находите запись, залезаете в другой цикл (внутри этого) по всему комбобоксу. "Пробегаете" по всему Items сравнивая каждую строку с вашим текущим значением из Table1. Если строки вашей в Items нету, то добавляете, а если есть, то переходите к следующей записи вашего Table1. Если сортировка нужна то у КБ свойство Sorted 0

@reiteriX 685 / 241 / 13 Регистрация: 02.04.2009 Сообщений: 692
	20.05.2011, 00:00	4
	Сообщение от Siluet while not может if not ? Погляди где зацикливается через отладку. Добавлено через 9 минут Сообщение от Siluet Код while not DataModule5.T_otsek.Eof do begin Пока DataModule5.T_otsek не пустой.... А когда это он опустеет то? Сам точно не опустеет. Next это лишь переход к следующему кортежу 0

@Siluet 0 / 0 / 0 Регистрация: 13.03.2011 Сообщений: 12
	20.05.2011, 09:54 [ТС]	5
	Погляди где зацикливается через отладку. эт Я незнаю как делать.. while not DataModule5.T_otsek.Eof do begin это строчка говорит "пока не конец строки" Добавлено через 9 часов 39 минут Решено: Код 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; 0