Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

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

 
Артём К.   (2003-03-20 13:32) [0]

Привет всем!

Пусть есть два ListBoxa (LB1 и LB2)
Как сделать, что если элементы LB2 отсутвуют в LB1, то надо их добавить.

Заранее спасибо!


 
GIL ©   (2003-03-20 13:44) [1]

for i:=0 to LB2.Items.Count-1 do
begin
y:=false;
for j:=0 to LB1.Items.Count-1 do
begin
if LB2.Items[i]=LB1.Items[i] then y:=true;
end;
if not y then LB1.Add(LB2.Items[i]);
end;

несколько прямолинейно, но должно работать


 
Clickmaker ©   (2003-03-20 13:44) [2]

if LB2.IndexOf(LB1.Items[i]) < 0 then
LB2.Items.Add(LB1.Items[i]);


 
Артём К.   (2003-03-20 13:52) [3]

А что если элементов в LB2 больше, чем в LB1


 
Mike Kouzmine   (2003-03-20 15:01) [4]

Значит они не идентичны


 
Владислав ©   (2003-03-20 16:39) [5]

> Артём К. (20.03.03 13:32)

Ну ты даешь! Ты сам, практически, алгоритм написал!

"... если элементы LB2 отсутвуют в LB1, то надо их добавить..."

Тебе рассказать, как проверить отсутствие элементов, или рассказать, как их добавлять?


 
spogi   (2003-03-22 01:52) [6]

nu sperva probuy s LB1 na LB2, a potom naoborot i vse...


 
mukha ©   (2003-03-22 07:28) [7]


if not ListBox2.Items.Equals(ListBox1.Items)) then
ListBox2.Items.Assign(ListBox1.Items);

При сравнении списков содержание ListBox2 становится равным ListBox1. Подгони теперь под свой пример.



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
3-6337
paa
2003-03-14 10:22
2003.04.03
Работа с таблицей EXCEL


14-6702
Мазут Береговой
2003-03-19 04:14
2003.04.03
Вроде тут были люди, которые знакомы с .NET.


6-6646
glh
2003-02-11 19:38
2003.04.03
Interprocess communication - IPC


14-6753
PrettyFly
2003-03-15 13:17
2003.04.03
Help в Delphi


14-6699
ruben
2003-03-13 03:42
2003.04.03
Возможно ли программное включение компьютера?