Главная страница
    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.45 MB
Время: 0.009 c
3-6320
helen
2003-03-17 14:48
2003.04.03
SQL-запросы, функция SUBSTRING()


14-6760
Alek Aaz
2003-03-17 12:17
2003.04.03
Конвертор VC++ то Delphi


14-6754
Yellow
2003-03-13 13:42
2003.04.03
Изучение чужой базы


3-6297
Jurij
2003-03-16 16:06
2003.04.03
SQL запрос


14-6662
Егорычев Михаил
2003-03-17 18:39
2003.04.03
Browser на API - окне





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский