给 Memo 排序的函数

{给 Memo 排序的函数}
procedure SortMemo(const m: TMemo);
begin
  with TStringList.Create do
  begin
    Sorted := True;
    Text := m.Text;
    m.Text := Text;
    Free;
  end;
end;

 菊子曰：我在用着的博客编辑软件