memo排序

Question

现有memo.lines多行
如：
1
2
3
4
5
是否可当我以4作为排序依据时显示为：4
5
1
2
3我是个菜鸟，还望大伙指点，Thx!!!

Answer 1

可否用这个方法？  procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
      I:   Integer;   
      J:   Integer;   
  begin   
      J   :=   0;   
      with   Memo1.Lines   do   
      begin   
          BeginUpdate;   
          try   
              for   I   :=   0   to   Count   -   1   do   
                  if   Pos('cn',   Memo1.Lines[I])   =   1   then   
                  begin   
                      Memo1.Lines.Move(I,   J);   
                      Inc(J);   
                  end;   
          finally   
              EndUpdate;   
          end;   
      end;   
  end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to strtoint(Edit1.Text)-2 do  //Edit1为行数
    Memo1.Lines.Append(Memo1.Lines.Strings[i]);
  for i:= 0 to strtoint(Edit1.Text)-2 do
    Memo1.Lines.Delete(0);
end;