Ну вот например так. Писал "в лоб"
Код:
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;
__________________
Програмистами не рождаются, ими становятся!
|