Einzelnen Beitrag anzeigen

Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.538 Beiträge
 
Delphi 11 Alexandria
 
#24

AW: Zeile aus Stringlist löschen, wie optimieren?

  Alt 14. Feb 2014, 21:31
Zitat:
sl.Assign(slTmp); Das kopiert aber auch nochmal die Liste. (notfalls könnte man aber auch einfach die beiden Objekte austauschen)
OK, diese Vorschläge aufgegriffen, bringt der Einbau in die von mir vorgeschlagene Variante es dann auf 299 Millisekungen:
Sollte jetzt reichen, oder?
Delphi-Quellcode:
var
  slDummy: TSTringList;
begin

  slTmp := TSTringlist.Create;
  slTmp.Capacity := sl.Count;

  for i := 0 to sl.Count - 1 do
   if sl[i] <> 'then slTmp.Add (sl[i]);

  slDummy := sl;
  sl := slTmp;

  slDummy.Free;

Geändert von Harry Stahl (14. Feb 2014 um 21:34 Uhr)
  Mit Zitat antworten Zitat