Выделение строк в ListBox

← →
Саша (2008-07-01 13:41) [0]

Подскажите пожалуйста, мастера, как выделить дублирующие по содержанию строки в ListBox.
я попробывал вот таким кодом, но им не получается-удаляются все одинаковые.

for i:=0 to listbox1.Items.Count-1 do begin for j:=1 to listbox1.Items.Count-1 do if listbox1.Items[i]=listbox1.Items[j] then begin listbox1.Selected[j]:=true; end; end;

← →
alexBlack © (2008-07-01 13:54) [1]

по-моему нужно при сравнении исключать случай i=j

← →
oldman © (2008-07-01 14:03) [2]

> alexBlack © (01.07.08 13:54) [1]
> по-моему нужно при сравнении исключать случай i=j

не for j:=1, a
for j:=i+1 to

немножко пошустрее:

function FindDuplicates (Start: Integer): Boolean;
var
I: Integer;
begin
Result := false;
for I := Succ(Start) to ListBox1.Items.Count - 1 do
if not ListBox1.Selected[I]
and (ListBox1.Items[I] = ListBox1.Items[Start]) then
begin
Result := true;
ListBox1.Selected[I] := true;
end;
end;

var
I: Integer;
begin
for I := 0 to ListBox1.Items.Count - 1 do
if not ListBox1.Selected[I] then
if FindDuplicates(I) then
ListBox1.Selected[I] := true;
end;

Выделение строк в ListBox Найти похожие ветки