@himitsu
Ach verflixt, die Idee mit Exchange hatte ich gleich am Anfang, nur was habe ich gemacht? Ich vertue mich und nehme stattdessen Move. Und das hat natürlich zwei Minuten gedauert, also habe ich es nicht weiter verfolgt. Mit Exchange dauert das nur
80 ms und der Speicher wird nicht vergrößert, es wird nur neu sortiert. Und das Delete was folgt schneidet nur von hinten ab.
Delphi-Quellcode:
...
//---
t1 := Now;
Cursor := crHourGlass;
k := 0;
for i := (sl.Count - 1) downto 0 do
if sl[i] = '' then
begin
sl.Exchange(i, sl.Count - 1 - k);
Inc(k);
end;
for i := (sl.Count - 1) downto sl.Count - k do
sl.Delete(i);
Cursor := crDefault;
t2 := Now;
t := MilliSecondsBetween(t1, t2);
ShowMessage(Format('Count sl: %d | Dauer des Verschiebevorgangs: %d ms', [sl.Count, t]));
...
@Harry Stahl
Das mit dem Kopieren habe ich schon im Beitrag #11 behandelt und es dauerte nur 150 ms. Ich denke diese Werte sind von dem Computer abhängig, da es im Grunde genommen in Grün ist.