Zeile aus Stringlist löschen, wie optimieren?

[Popov]

@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.

[Harry Stahl]

Bei mir hier dauert Deine Lösung 119 MS.

Dennoch würde ich mal sagen, Du hast den Preis gewonnen.

Cooler Thread.

Ich finde es jedenfalls echt faszinierend, wie man immer noch ein wenig mehr Leistung durch Optimierung aus den Routinen raus holen kann.

[p80286]

Kaum ist man ein WE nicht da überschlägt sich alles.

Code:

sl.Exchange(i, sl.Count - 1 - k);

Hierbei verschwinden die zu löschenden Zeilen werden aber durch Zeilen vom Listenende ersetzt.
Oder hab ich da etwas falsch verstanden?

ich hab es jetzt erst einmal mit

Delphi-Quellcode:

for i:=0 to Liste.Count-1 do
  if Liste[i]<>'' then        // oder anderer Inhalt
    TempListe.add:=Liste[i];

Das ist hinreichend schnell, und der Hauptspeicher hat bisher auch gereicht!

Vielen Dank!

K-H

[Popov]

@p80286

Stimmt, das mit dem Ersetzen könnte sein. Aber ich denke mir das ist nur eine Frage des Algorithmus. Man muss es nur etwas raffinierter damit es passt.