Como colocar em ordem crescente o conteudo de um Memo?

Delphi

16/08/2004

Colegas,

Tenho um Memo com informações fora de ordem, qual o comando para coloca-lo em ordem crescente?

grato,

Rubem.


Rfalcaoj

Rfalcaoj

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

16/08/2004

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;



GOSTEI 0
Rfalcaoj

Rfalcaoj

16/08/2004

Lucas,

Obrigado pela informação, resolveu meu problema a contento.

Rubem Jr.


GOSTEI 0
Rômulo Barros

Rômulo Barros

16/08/2004

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.


8) 8) 8) 8) 8) 8) 8)


GOSTEI 0
POSTAR