Como colocar em ordem crescente o conteudo de um Memo?

16/08/2004

1

Colegas,

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

grato,

Rubem.


Responder

Posts

16/08/2004

Lucas Silva

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;



Responder

16/08/2004

Rfalcaoj

Lucas,

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

Rubem Jr.


Responder

17/08/2004

Rômulo Barros

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)


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira