Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
Delphi 12 Athens
|
AW: Bug in QuickLib
26. Dez 2020, 01:07
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;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
Geändert von himitsu (26. Dez 2020 um 01:12 Uhr)
|