Sortieren eines Arrays of String

[Delphi.Narium]

Kurz und knapp:

Delphi-Quellcode:

procedure TForm1.SortMemo;
var
        i  : Integer;
        k  : Integer;
        s  : String;
begin
  for i := 0 to Memo1.Lines.Count - 1 do begin
    for k := i + 1 to Memo1.Lines.Count - 1 do begin
      if Copy(Memo1.Lines[k],5,4) < Copy(Memo1.Lines[i],5,4) then begin
        s := Memo1.Lines[i];
        Memo1.Lines[i] := Memo1.Lines[k];
        Memo1.Lines[k] := s;
      end;
    end;
  end;
end;