Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Вниз

Сравнить два списка. Как?   Найти похожие ветки 

← →
Semen   (2003-05-02 16:54) [0]

Имеется два заполненных ListBox. В третий ListBox вывожу те элементы, которые имеются в обоих так:
procedure TForm1.Button1Click(Sender: TObject);
var n,m:integer;
begin
ListBox3.Clear;
For n:=ListBox1.Items.Count-1 downto 0 do
for m:=ListBox2.Items.Count-1 downto 0 do
begin
if ListBox2.Items[m]=ListBox1.Items[n] then
ListBox3.Items.Add(ListBox2.Items[m])
end;
end;
Как мне теперь вывести в третий ListBox те элементы,которые есть в первом и нет во втором ListBox"е.

---

← →
MsGuns   (2003-05-02 17:06) [1]

LB3.Items.Clear
for i:=0 to LB1.Count-1 do
if LB2.Items.IndexOf(LB1.Items[i])<0 then
LB3.Items.Add(LB1.Items[i])

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c