Wie erwähnt wurde, müsste man hier ja nicht sortieren.
Wenn doch: Eventuell möchten Frau oder Mann ja später irgendwann einmal grössere Arrays sortieren. Und da ist die Verwendung von TMemo.Lines sehr bald sehr langsam (auch mit ..BeginUpdate, ..EndUpdate).
Auf meiner Kiste für 1000 Elemente. Sortieren über TMemo.Lines ~1200ms, Code unten: ~5ms (maximal "unsortiert"). Bei 5000 Elementen: Sortieren über TMemo.Lines ~32sec, Code unten: ~15ms (wenn bereits sortiert) ~60ms ("maximal "unsortiert")
Du kannst dabei TStringList.
Sort fürs Sortieren verwenden (oder auch deinen Bubble Code). Sort ist natürlich etwas schneller
Delphi-Quellcode:
var ts : TStringList;
...
// Inhalt von Memo in die StringList schreiben:
ts.Text := memo1.Lines.Text;
// Der Teil T, nach welchem sortiert werden soll wird zusätzlich an den Anfang der zu sortierenden Strings geschrieben:
for i := 0 to ts.Count-1 do
begin
hs := ts.Strings[i];
ts.Strings[i] := Copy( hs,5,4) + hs;
end;
// Sortieren mit Sort oder Bubble oder wie auch immer
ts.Sort;
// T löschen
for i := 0 to ts.Count-1 do
begin
hs := ts.Strings[i];
Delete( hs, 1, 4 );
ts.Strings[i] := hs;
end;
// zurück schreiben:
memo1.Lines.Text := ts.Text;