Como colocar em ordem crescente o conteudo de um Memo?

Question

Colegas,Tenho um Memo com informa��es fora de ordem, qual o comando para coloca-lo em ordem crescente?grato,Rubem....

Lucas Silva · Answer

Fiz um c�digo aqui, � meio gambiarra, mais at� que ficou legal!

procedure TForm1.Button1Click(Sender: TObject);
var lista: TStringLIst;
    i: integer;
begin
   lista := TStringList.Create;

   for i := 0 to Memo1.Lines.Count - 1 do
     lista.Add(Memo1.Lines.Strings[i]);

  lista.Sort; // isto coloca em ordem crescente;
  Memo1.Lines.Clear;

   for  i:= 0 to lista.Count -1 do
     Memo1.Lines.Add(lista[i]);
end;

Rfalcaoj · Answer

Lucas,Obrigado pela informa��o, resolveu meu problema a contento.Rubem Jr....

R�mulo Barros · Answer

[quote:55cbccd2ad]procedure TForm1.Button1Click(Sender: TObject);var teste : TListBox;begin  teste := TListBox.Create(Application);  teste.Parent := Self;  Try    teste.Items := Memo1.Lines;    teste.Sorted := True;    Memo1.Lines.Clear;    Memo1.Lines := teste.Items;  Finally    FreeAndNil(teste);  End;end;end.[/quote:55cbccd2ad] 8)  8)  8)  8)  8)  8)  8)...