Ordem Alfabetica

Question

Eu tenho um monte de nomes numa TStringList e gostaria de alinhar eles por ordem alfabetica ascendente e descendente...como eu fa�o isso ???valeu!...

Aroldo Zanela · Answer

Colega,Utilize o m�todo SORT da classe TStringList para ordenar de forma ascendente....

Cebikyn · Answer

Para organizar de forma ascendente, use o sort, indicado pelo Aroldo Zanela, e de forma descendente pode usar o SuperSort, que pode ser obtido neste link:
http://paginas.terra.com.br/informatica/cebikyn/SuperSort.pas

var
  SS: TSuperSort;
begin
  SS:= TSuperSort.Create;
  SS.SortStrings(ListBox1.Items,[],[srtDescending]);
  SS.Free
end;

Spider · Answer

vi este t�pico e me interessei...   naum encontrei este m�todo sort no StringGrid!!!  Pode digitar ou enviar um exemplo? ????   erique@planagriveracruz.com.br...

Spider · Answer

OPS!!! Digitei errado na resposta aterior.. me desculpem!!!...

Cebikyn · Answer

[quote:bbff231f43=�cebikyn�]&#8230; que pode ser obtido neste link://paginas.terra.com.br/informatica/cebikyn/SuperSort.pas&8230;[/quote:bbff231f43]OBS: � necess�rio clicar com o bot�o direito do mouse no link e selecionar �Salvar destino do link como...� para que o download seja feito normalmente.[size=9:bbff231f43]Agradeceria se algum moderador colocasse esta observa��o na minha msg anterior e deletasse esta.[/size:bbff231f43]...

Cebikyn · Answer

[quote:ac9e56ec77=�Erique�]&#8230; naum encontrei este m�todo sort no StringGrid!!! &8230;[/quote:ac9e56ec77]O c�digo � para o StringList, acho que � esta a corre��o a que vc se referiu em sua segunda msg, e funciona assim:[code:1:ac9e56ec77]var  SL: TStringList;begin  SL: TStringList.Create  ...  SL.Sorted := true; // Aqui organiza em ordem alfab�tica  ...  SL.Free;end;[/code:1:ac9e56ec77]...

Delphistar · Answer

para ordem decrescente da pra fazer criando uma StringList auxiliar:

var SL2 : TStringList;
      i : Integer
begin
  SL1.Sorted := true;
  SL2 := TStringList.Create;
  for i := SL1.Count - 1 downto 0 do
    SL2.Count.Add(SL1[i]);
  SL1.Strings = SL2.Strings;
end;

Kurama · Answer

Valeu !!!me ajudou muito... esse forum � muito bom !!!...

F�rum Ordem Alfabetica #204151