Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.155 Beiträge
 
Delphi 12 Athens
 
#9

AW: Bug in QuickLib

  Alt 26. Dez 2020, 00: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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (26. Dez 2020 um 00:12 Uhr)
  Mit Zitat antworten Zitat