本例效果图:



代码文件:
--------------------------------------------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

 

 

{给 Memo 排序的函数 发现会自动去重复，我又改了一个不会去重复的}
procedure SortMemo(const m: TMemo);
begin
with TStringList.Create do
begin
Sorted := True;
Text := m.Text;
m.Text := Text;
Free;
end;
end;

 

{给 Memo 排序的函数 不会去重复的}

procedure SortMemo2(const m: TMemo);

var

tlist:tstringlist;

begin

tlist:=tstringlist.Create;

tlist.Text:=m.Text;

tlist.Sort;

m.Text := tlist.Text;

tlist.Free;

end;

 

{测试}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Align := alLeft;
Memo1.Lines.CommaText := 'zzz,xxx,yyy,aaa,ccc,bbb,333,222,111';
Button1.Caption := '排序';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SortMemo(Memo1);
end;

end.