Показать сообщение отдельно
  #2  
Старый 16.05.2015, 16:50
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

Ну вот например так. Писал "в лоб"
Код:
var
    i, j:integer;
    f: boolean; //флаг наличия
begin
    for i:=0 to listview1.items.count-1 do begin
	f:=false;
        for j:=0 to listview2.items.count-1 do begin
            if listview1.items[i].caption = listview2.items[j].caption then begin
		    f:=true; break;
            end;
        end;
	if not f then memo1.lines.add(listview1.items[i].caption);
    end;
end;
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием