Поменять местами или сортировка по алфавиту в memo

[Ares80]

Добрый день!
Подскажите пожалуйста как в memo понять местами текст во всех строках либо отсортировать по алфавиту а не по цифрам.
1 Б
2 А
3 В
Нужно что бы было, либо:
А 2
Б 1
В 3
Либо:
2 А
1 Б
3 В

[Аватар]

А как по цифрам сортируете?

[Ares80]

Аватар
procedure TForm1.Button3Click(Sender: TObject);
var sL:TStringList;
begin
sL:=TStringList.Create;
sL.Assign(Memo4.Lines);
sL.Sorted:=True;
Memo4.Lines.Assign(sL);
sL.Free;
end;

Но не подходит для моей задачи =(

[Аватар]

Копай в сторону StringList.CustomSort

[Serge_Bliznykov]

пример использования:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Append('2 А');
  Memo1.Lines.Append('1 Б');
  Memo1.Lines.Append('3 В');
end;


procedure TForm1.Button1Click(Sender: TObject);

function StringListCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if List.Strings[Index1] = List.Strings[Index2] then Result := 0
  else
    if (Length(List.Strings[Index1])<2 ) or (Length(List.Strings[Index2])<2 )
          then begin
             if List.Strings[Index1] > List.Strings[Index2]
                then  Result :=  1
                else  Result :=  -1;
           end
           else begin
             if Copy(List.Strings[Index1],2,255) >  Copy(List.Strings[Index2],2,255)
                then  Result :=  1
                else  Result :=  -1;
           end;

end;

var TS : TStringList;
begin
  try
    TS := TStringList.Create;
    TS.Text := Memo1.Lines.Text;
    TS.CustomSort( @StringListCompareStrings );
    Memo1.Lines.Text := TS.Text;
  finally
    FreeAndNil(TS);
  end;
end;



end.

[Ares80]

Serge_Bliznykov, спасибо огромное!

[Serge_Bliznykov]

Всегда пожалуйста!