Stringliste Umkehren

[Klaus01]

.. um das ganze einmal zu untermauern.

Getestet habe ich so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  sl : TStringList;
  sl2 : TstringList;
  tick1 : Longword;
  i,j : longint;

begin
   sl := TstringList.create;
   sl2 := TStringList.create;
   StatusBar1.Panels[0].Text:='';
   sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'testFile.txt');
   tick1 := GetTickCount;
   for i:=sl.Count -1 downto 0 do
    sl2.add(sl[i]);
   label4.Caption := IntToStr(GetTickCount - tick1);
   StatusBar1.Panels[0].Text:='downto fertig';
   sl.Free;
   sl2.Free;

   sl := TstringList.create;

   sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'testFile.txt');
   tick1 := GetTickCount;
   for i:=sl.count -1 downto (sl.count -1) div 2 do
     begin
       sl.Exchange(i,sl.count -1 -i);
     end;
   label5.Caption:= IntToStr(GetTickCount - tick1);
   StatusBar1.Panels[0].Text:='exchange fertig';

   sl.free;

   StatusBar1.Panels[0].Text:='fertig';
end;

mit einer 350MByte Datei.
Herausgekommen ist, das was im Screenshot zu sehen ist.

Grüße
Klaus

[thkerkmann]

Hi,

es geht doch hier wohl um Geschwindigkeit und eine Stringlist.
In der Aufgabenstellung taucht kein Memo und keine Objekte an der Stringlist auf.

Damit ist der Code von inherited IMHO unschlagbar der schnellste und eleganteste.

Gruss

[Klaus01]

Zitat von thkerkmann:

Damit ist der Code von inherited IMHO unschlagbar der schnellste und eleganteste.

Gruss

Würde ich nicht so sagen:

TestCode:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  sl : TStringList;
  sl2 : TstringList;
  tick1 : Longword;
  i,j : longint;
  s: String;

begin
   sl := TstringList.create;
   sl2 := TStringList.create;
   StatusBar1.Panels[0].Text:='';
   sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'testFile.txt');
   tick1 := GetTickCount;
   for i:=sl.Count -1 downto 0 do
    sl2.add(sl[i]);
   label4.Caption := IntToStr(GetTickCount - tick1);
   StatusBar1.Panels[0].Text:='downto fertig';
   sl.Free;
   sl2.Free;

   sl := TstringList.create;

   sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'testFile.txt');
   tick1 := GetTickCount;
   for i:=sl.count -1 downto (sl.count -1) div 2 do
     begin
       sl.Exchange(i,sl.count -1 -i);
     end;
   label5.Caption:= IntToStr(GetTickCount - tick1);
   StatusBar1.Panels[0].Text:='exchange fertig';

   sl.free;

   sl := TstringList.create;

   sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'testFile.txt');
   tick1 := GetTickCount;
   for i:=0 to (sl.count -1) div 2 do
     begin
      s:=sl[i];
      sl[i]:=sl[sl.Count-i-1];
      sl[sl.Count-i-1]:=s;
     end;
   label7.Caption:= IntToStr(GetTickCount - tick1);
   StatusBar1.Panels[0].Text:='exchange fertig';

   sl.free;


   StatusBar1.Panels[0].Text:='fertig';
end;

Ergebnis im Anhang.

Grüße
Klaus

[thkerkmann]

Ok, das sind mal Zahlen

Ich muss gestehen, ich habs nicht gemessen, kam mir nur so vor.
Aber beim Exchange werden ja nur die Pointer getauscht. Das kann ja nur schnell sein

Algo1 alloziert neue strings und ausserdem befindet sich die Ergebnismenge erst mal in einer anderen Stringliste. Der fällt also auf jeden Fall durch.

Gruss

[bluesbear]

Zitat:

"alzaimar"(...)das Problem scheint zu sein, das Du die drei(!) relevanten Zeilen vom bluesbear(...)

Nee, die waren von Klaus01. Ich ärgere mich immer noch, daß ich nicht selber darauf gekommen bin.

[Hansa]

Es geht nur um die Zeit ?

Delphi-Quellcode:

// braucht 6 Min. 44 Sek.
  sl2 := TStringlist.Create;
  for i := sl1.count - 1 downto (sl1.count - 1) div 2 do begin
    sl1.exchange(i,j);
    j := j + 1;
  end;
  memo2.Lines := sl1;
(* braucht 6 Min. 41 Sek.
  for i := sl1.Count - 1 downto 0 do
    sl2.Add (sl1[i]); // in umgekehrter Reihenfolge in 2. Memo schieben
  memo2.Lines := sl1;
*)

30 MB. Zeit ist unwichtig.

[Sharky]

Zitat von Hansa:

Es geht nur um die Zeit ?

...

30 MB. Zeit ist unwichtig.

Hi,

zum einen sagen die 30 MB alleine nichts aus. Wenn schon solltest Du auch sagen wieviele Zeilen es sind.
Zum anderen braucht nicht das Umsortieren so lange sondern das Eintragen in das Memo
Sehe es doch ein: TStrings.Exchange ist die schnellste Lösung.

[Hansa]

Es sind fast 400.000 Zeilen. Add hat gegenüber exchange einen geringen Vorteil von 0,7 % = 3 Sek.

[Union]

Zitat von Hansa:

Es sind fast 400.000 Zeilen. Add hat gegenüber exchange einen geringen Vorteil von 0,7 % = 3 Sek.

Putz mal Deine Brille! Wie hast Du denn das gemessen? Bei meinem nicht taufrischen Laptop habe ich für Add 89 ms und für Exchange 10 ms (400000 x 80 Byte). Ausserdem belegt die Add-Methode doppelt so viel Speicher, ist also nicht skalierbar:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
   NUM_ENTRIES = 400000;
   ENTRY = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789AAAA'+
           'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789AAAA';
var
   slDown : TStringlist;
   slUp   : TStringList;
   i, j : integer;
   dtStart : TDateTime;
begin
   Button1.Enabled := False;

   // Füllen
   slDown := TStringList.Create;
   slDown.Capacity := NUM_ENTRIES;
   for i := 0 to NUM_ENTRIES-1 do
      slDown.add(ENTRY);
   Button1.Enabled := True;

   // Methode mit Add
   slUp := TStringList.Create;
   dtStart := Now;
   for i := slDown.Count-1 downto 0 do
      slUp.Add(slDown[i]);
   ShowMessage(Format('Add %d ms', [MillisecondsBetween(Now, dtStart)]));
   slUp.Free;

   // Methode mit Exchange
   dtStart := Now;
   j := 0;
   for i := slDown.count - 1 downto (slDown.count - 1) div 2 do
   begin
     slDown.exchange(i,j);
     inc(j);
   end;
   ShowMessage(Format('Exchange %d ms', [MillisecondsBetween(Now, dtStart)]));
   slDown.Free;
end;

[edit]Ahh, ich hab Deine geniale Messmethode erkannt: Du misst wahrscheinlich das Update des Memo mit. Warum trägst Du das ganze nicht noch in eine Datenbank ein und misst das ebenfalls dazu? Das Update des Memo mag ja ein paar Minuten dauern, das will ich mir nicht antun. Dadurch verschwindet die Messdifferenz im Nirvana.[/edit]

[Hawkeye219]

Hallo Hansa,

ich möchte ja jetzt kein Spielverderber sein, aber hast du die beiden Blöcke einmal vertauscht?

Gruß Hawkeye