ordenar descendente TStringList Sort

[ingabraham]

-tengo una lista TStringList

2003
2004
2005


quiero ordenarla descendentemente , he probado con el metodo sort

[ecfisa]

Hola ingabraham.

Empezado por ingabraham

...
quiero ordenarla descendentemente , he probado con el metodo sort

¿ Y no te ha funcionado ?, intenta de este modo:

Código Delphi [-]
...
function CompareDesc(TS: TStrings; const i1, i2: Integer): Integer;
begin
  Result:= CompareText(TS[i2], TS[i1]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStringList;
begin
  TS:= TStringList.Create;
  try
    TS.Add('2003');
    TS.Add('2004');
    TS.Add('2005');
    TS.CustomSort(@CompareDesc);
  finally
    TS.Free;
  end;
end;

Saludos

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

El método Sort de los TStringList es muy eficiente y funciona bastante bien.
¿Cual es el problema?

Si lo quieres ordenado ascendente recorre la lista desde 0 hasta (Count-1)
Si la quieres descendente recorrela desde (count-1) hasta 0

Tal vez no he entendido el problema...

[[nlsgarcia]]

ingabraham,

Empezado por ingabraham

...tengo una lista TStringList...quiero ordenarla descendentemente...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  A1 : Array[0..10] of Integer = (2001,2000,2005,2008,2003,2002,2006,2004,2007,2010,2009);

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Ordena un TStringList por el método Sort
procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   S : TStringList;


begin

   S := TStringList.Create;

   Randomize;

   for i := Low(A1) to High(A1) do
      S.Add(IntToStr(A1[i]));

   S.Sort;

   ListBox1.Sorted := False;

   ListBox1.Clear;

   for i := S.Count - 1 downto 0 do
      ListBox1.Items.Add(S[i]);

   S.Free;

end;

// Ordena un TStringList por la propiedad Sorted
procedure TForm1.Button2Click(Sender: TObject);
var
   i : Integer;
   S : TStringList;


begin

   S := TStringList.Create;

   Randomize;

   S.Sorted := True;

   for i := Low(A1) to High(A1) do
      S.Add(IntToStr(A1[i]));

   ListBox1.Sorted := False;

   ListBox1.Clear;

   for i := S.Count - 1 downto 0 do
      ListBox1.Items.Add(S[i]);

   S.Free;

end;

function CompareDesc(TS: TStrings; const i1, i2: Integer): Integer;
begin
   Result:= CompareText(TS[i2], TS[i1]);
end;

// Ordena un TStringList por el método CustomSort
procedure TForm1.Button3Click(Sender: TObject);
var
   i : Integer;
   S : TStringList;

begin

   S := TStringList.Create;

   Randomize;

   for i := Low(A1) to High(A1) do
      S.Add(IntToStr(A1[i]));

   S.CustomSort(@CompareDesc);

   ListBox1.Sorted := False;

   ListBox1.Items.Assign(S);

   S.Free;

end;

end.

El código anterior ordena un TStringList de forma descendente a través de tres métodos equivalentes y muestra el resultado en un TListBox, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.