Stringliste Umkehren

[simon790]

Hallo Ich mcöhte den Inhalt einer Stringliste Umkehren...Also erstes Elemnt an letzter Stelle und das Letzte an ester Stelle ect...

Zuerst

A
B
C
D

Nacher

D
C
B
A

Ich habe mal folgenden Code geschrieben mit dem es soweizt funktioniert.

procedure TForm1.Button1Click(Sender: TObject);
var i,d: Integer;
begin
With OpenDialog1 do
begin
if Execute then
begin
Daten.LoadFromFile(Filename); //Daten in die Stringlist kopieren
end;
end;
d:= Daten.Count; //Anzahl Zeilen ermitteln
DatenU.Assign(Daten); //Die Umgekehrte Stringlist "DatenU" mit der richtigen gGrösse erstellen
for i := 1 to d do
begin
DatenU.Strings[i-1]:= Daten.Strings[d-i] //Zeilen umsortieren
end;
Label1.Caption:=IntToStr(d);
Memo1.Lines:=Daten;
Memo2.Lines:=DatenU;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Daten := TStringList.Create;
DatenU := TStringList.Create;
end;



Da die Stringlist aber ziemlich gross werden können (txt-Logfiles) dauert dieser Algorythmus etwas lange.

Hat jemand eine elegantere Lösung?
Besten Dank und Gruss

Simon