Der nächste Bug in dieser Komponente?
Delphi-Quellcode:
sl := Quick.Process.GetProcessList;
try
sl.Sort;
for var i := SL.Count - 2 downto 0
if sl[i] = sl[i+1] then
sl.Delete(i);
//CodeSite.Send('TForm1.tsProcessListsShow: sl', sl);
lstProcesses.Items.Assign(sl);
finally
sl.Free;
end;
Ich weiß jetzt nicht wie diese Komponente intern arbeitet, aber eine StringListe lässt sich auch so sortieren und aufräumen.
Delphi-Quellcode:
sl.Sorted := True;
sl.Duplicates := dupIgnore;
sl.Text := sl.Text;