Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

Сраванение   Найти похожие ветки 

← →
oens   (2004-01-03 09:23) [0]

Мастера, подскажите.
Есть: Listbox1, Listbox2, Listbox3.
Как сравнить содержимое Listbox1 и Listbox2 и записать в Listbox3 все item(ы), которые не не совпадают?
Т.е в Listbox1 есть 1,2,3 в Listbox2 есть 1,2,3, 4 как эту лишнию 4 записать в Listbox3?
Помогите с кодом.

---

← →
default ©   (2004-01-03 10:09) [1]

можно так например:

procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Byte;
TmpListBox: TListBox;
begin

repeat
for i := 0 to ListBox1.Count - 1 do begin
for j := 0 to ListBox2.Count - 1 do
if ListBox1.Items[i] = ListBox2.Items[j] then Break;
if j = ListBox2.Count then ListBox3.Items.Add(ListBox1.Items[i]);
end;
TmpListBox := ListBox1;
ListBox1 := ListBox2;
ListBox2 := TmpListBox
until ListBox1.Name = "ListBox1"

end;


---

← →
oens   (2004-01-03 11:27) [2]

Спасибо, сейчас попробую

---

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

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.031 c