Bug in QuickLib

[PeterPanino]

Zitat von himitsu:

Indem man Free benutzt?

Delphi-Quellcode:

procedure TForm1.tsProcessListsShow(Sender: TObject);
var
  sl: TStringList;
begin
  sl := Quick.Process.GetProcessList;
  try
    sl.Sort;
    //CodeSite.Send('TForm1.tsProcessListsShow: sl', sl);
    lstProcesses.Items.Assign(sl);
  finally
    sl.Free;
  end;
end;

Leider kann man bei dieser Konstruktion nicht die Duplikate entfernen, so wie ich es in meinem Code gemacht habe. Dazu müsste man wahrscheinlich erst wieder mehrere StringList-Objekte erstellen.

Wie gesagt, besser wäre es zu diesem Zweck, wenn man der Funktion GetProcessList eine existierende StringList als var-Parameter übergeben könnte.