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.
