Скачать: CL | DM;

Выделение строк в 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

---

← →
Игорь Шевченко ©   (2008-07-01 14:07) [3]

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

 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c