Items aus einem Memo-feld sortieren

[semo]

à la Klaus01: (bzw. für die Französischkenner unter euch "à le Klaus01" *g*):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  aSL: TStringList;
begin
  aSL := TStringList.Create;
  aSL.Sorted := true;
  aSL.Duplicates := dupAccept;
  aSL.Assign(Memo1.Lines);

  Memo1.Lines.Assign(aSL);

  aSL.Free;
end;

im Memo direkt sortieren ist nicht möglich,
die Stringlist ist ja extra dafür geschaffen worden um TStrings sortieren zu können.