memo排序

[tempvipuser]

现有memo.lines多行
如：
1
2
3
4
5
是否可当我以4作为排序依据时显示为：

4
5
1
2
3

我是个菜鸟，还望大伙指点，Thx!!!

[tempvipuser]

可否用这个方法？

  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;

[dinoalex]

[Code=Delphi(Pascal)]
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;
[/Code]

[tempvipuser]

thx!!!!