Stringliste Umkehren

[inherited]

downto brauchst du noch nicht mal!

Delphi-Quellcode:

var s: String;
...
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;

(ungetestet)