Ordenar texto en un memo

[Jad]

Hola Foro,

Me gustaría saber si el componente memo tiene algun método para ordenar el texto que tiene. Quiero ordenar palabras.

Ejemplo, si tengo

zapato
amor
gato

quisiera verlo como

amor
gato
zapato

Gracias por su atención

Alberto.

[Neftali [Germán.Estévez]]

Crea un StringList ordenado. Pasa los datos de Memo.Lines al StringList con:

Código Delphi [-]
  
  ST.AddStrings(Memo1.Lines);

Y vuelve a volcar esto sobre el memo. El StringList te las habrá ordenado correctamente.


Completo sería algo así:

Código Delphi [-]
  
  // Crear
  ST := TStringList.Create();
  ST.Sorted := True;
  // Asignar
  ST.AddStrings(Memo1.Lines);
  // Retornarlas al Memo
  Memo1.Lines.Clear;
  Memo1.Lines.AddStrings(ST.Strings);
  // Liberar
  ST.Free;

[Northern]

creo que no, y si utilizas un TStringList o cualquier otro control o componente ?....ordenar palabras se puede enfocar de diferentes maneras, quieres ordenarlas en tiempo real o cuando tu le das la orden.....

[Jad]

Hola de nuevo,

Para ordenar el memo puedo usar el componente TStringList que mencionan pero no lo veo en la paleta de componentes, y la instrucción

ST= TStringList->New(); //equivalente a ST:=TStringList.Create();

me da error porque ST no está definida. Si pongo

TStringList ST;

me dice que debo usar new.

Algún tip más, por favor.

Alberto

[reevil]

utiliza el componente TListBox, como ya te dijo neftali, copias el texto, ordenas (con la propiedad sort del listbox) y vuelves a colocar tu texto en el memo

saludos

[Jad]

Gracias Neftali & Northern, ya funciona pero tuve que cambiar el ST.Strings por ST.Items

Until nex happy time

Alberto

[Neftali [Germán.Estévez]]

Empezado por reevil

utiliza el componente TListBox, como ya te dijo neftali

Bueno, yo no dije un TListBox (que es un componente visual), dije un TStringList, que es una clase que no utiliza componente, aunque al final es lo mismo.

Seguramente lo del TStringList no te funcionaba, porque faltaba definir la variable, cosa que no puse, porque imaginé que lo haría tú.

Código Delphi [-]
var
  TS:TStringList;
begin
  ...