Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
ВнизHelp me! Please! Найти похожие ветки
← →
RaZEr (2001-12-29 06:51) [12]Кошмар какой , такую бадягу развести из-за сравнения листбоксов ! Итак :
Листбоксы Lbox1 , LBox2 .
LBox3 - листбокс в котором одинаковые строки
LBox3 := TListBox.Create;
FOR I:=0 to LBox1.Items.Count-1 DO
FOR J:=0 to LBox2.Items.Count-1 DO
IF LBox1.Items[I] = LBox2.Items[J] THEN
LBox3.Items.Add(LBox1.Items[I]);
В итоге LBox3.Items - это и есть вс одинаковые строки .
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c