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.
Geändert von PeterPanino, damit der Platz auf dem Bildschirm nicht so leer aussieht.