deleting dublicates in listview delphi
- by radick
hi all
I am trying to remove dublicates in my listview
my function like this below
procedure RemoveDuplicates(const LV:TbsSkinListView);
var i,j: Integer;
begin LV.Items.BeginUpdate;
LV.SortType := stText; try
for i := 0 to LV.Items.Count-1 do begin
for j:=i+1 to LV.Items.Count-1 do
begin if SameText(LV.Items[i].SubItems[0],
LV.Items[j].SubItems[0]) and
SameText(LV.Items[i].SubItems[1],
LV.Items[j].SubItems[1]) and
SameText(LV.Items[i].SubItems[2],
LV.Items[j].SubItems[2]) and
SameText(LV.Items[i].SubItems[3],
LV.Items[j].SubItems[3]) then
LV.Items.Delete(j);
end;
end; finally
LV.SortType := stNone;
LV.Items.EndUpdate; end;
ShowMessage('Deleted');
end;
but its not doing what i intended
can anyone help me ?
