ordenar un TList

[roman]

Empezado por dec

Hay un ejemplo y todo...

Ejemplo que, me parece, no puede compilar. Mejor hacer como Marcos.

// Saludos

[dec]

Hola,

Y qué culpa tengo yo de que el ejemplo de la ayuda de Delphi tenga una pequeña errata, porque es lo que parece. Ahora, de la ayuda de Delphi este código que sí que compila, o sea, se puede hacer, perfectamente, como se dice en la ayuda.

Código Delphi [-]
unit Unit1;

interface

uses
  Forms, Classes, Controls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject;
     var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    FMiLista: TList;
  end;

var
  Form1: TForm1;

type
  TMiClase = class(TObject)
  private
    FNombreClase: string;
  public
    property NombreClase: string
     read FNombreClase write FNombreClase;
  end;

implementation

{$R *.dfm}

uses
  SysUtils, Dialogs;

function CompararNombres(item1, item2: Pointer): integer;
begin
  Result := CompareText(TMiClase(item1).NombreClase,
             TMiClase(item2).NombreClase);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FMiLista := TList.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FMiLista.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  unaClase, otraClase: TMiClase;
begin
  unaClase := TMiClase.Create;
  unaClase.NombreClase := 'Zaragoza';

  otraClase := TMiClase.Create;
  otraClase.NombreClase := 'Abecedario';

  FMiLista.Add(unaClase);
  FMiLista.Add(otraClase);

  FMiLista.Sort(@CompararNombres);

  for i := 0 to FMiLista.Count-1 do
  begin
    // Mostrará primero Abecedario y luego Zaragoza
    ShowMessage( TMiClase(FMiLista.Items[i]).NombreClase );
  end;
end;

end.

¿No?

La errata parece estar en el puntero a la función que se pasa como parámetro al método "Sort" de "Tlist":

Código Delphi [-]
List1.Sort(@CompareText);

Cuando debería ser:

Código Delphi [-]
List1.Sort(@CompareNames);

[roman]

El ejemplo de la ayuda no compila porque el operador as no es aplicable.

// Saludos

[dec]

Hola,

Vale, pero, tampoco compilaría aunque hicieras el "cast" como lo hago yo más arriba: porque el puntero no se pasa a la función correcta, y eso es una errata de la ayuda o me equivoco. Por otro lado todavía no tengo claro por qué el operador "as", como dices, no es aplicable...

Desde luego, si quitamos eso y la posible errata el código que he expuesto compila y funciona como se espera. O me equivoco...

[[maeyanes]]

No aplica el operador as por que Pointer no es una clase, es solo un tipo de datos y este operador es un operador de clases.



Saludos...

[roman]

Empezado por maeyanes

No aplica el operador as por que Pointer no es una clase, es solo un tipo de datos y este operador es un operador de clases.

Así es. Si no entiendo por qué tanto brinco estando el suelo tan parejo.

¿Hay que defender la ayuda de Delphi?

// Saludos

[[seoane]]

Después de de la primera respuesta de elcigarra me disponía a hacer un ejemplito, algo sencillo, pero tuve que atender a otro asunto durante un rato. Cuando vuelvo le doy a "Recargar" y me encuentro con todo esto . Así no hay forma de responder, si no te das prisa te pisan la respuesta

[[maeyanes]]

Bien dicen que "camarón que se duerme..."

[dec]

Hola,

Empezado por Maeyanes

No aplica el operador as por que Pointer no es una clase, es solo un tipo de datos y este operador es un operador de clases.

¿Cómo es que se pone en el ejemplo de la ayuda de Delphi, entonces? Aunque, si se piensa en la errata que parece contener... no sería extraño que algo más estuviera también equivocado, incluso cuando se mencione esto:

The following code sorts the objects in a list in alphabetical order based on their names. It assumes that the list contains only component references.

Que alguien me lo explique, por favor.

Empezado por Domingo

Después de de la primera respuesta de elcigarra me disponía a hacer un ejemplito, algo sencillo, pero tuve que atender a otro asunto durante un rato. Cuando vuelvo le doy a "Recargar" y me encuentro con todo esto . Así no hay forma de responder, si no te das prisa te pisan la respuesta

Sí, pero, cada uno aporta lo suyo, unos más modestamente que otros (hablo por mí). Por ejemplo, al ver que te habías unido al Hilo he pensado, ahí está Seoane con la solución del caso.

Por cierto, voy a ver si me preparo algo para cenar... y ceno... : D

[[maeyanes]]

Empezado por dec

¿Cómo es que se pone en el ejemplo de la ayuda de Delphi, entonces? Aunque, si se piensa en la errata que parece contener... no sería extraño que algo más estuviera también equivocado, incluso cuando se mencione esto:


Que alguien me lo explique, por favor.

Pues la única explicación que encuentro es que el que elaboró este ejemplo no lo compiló para probar que funcionara... jejeje



Saludos...

[dec]

Hola,

Empezado por Román

¿Hay que defender la ayuda de Delphi?

¿De qué estamos hablando? No se trata de defender la ayuda de Delphi, ¿cómo se te ha ocurrido algo así? Se trata de que en la ayuda, en este caso, se puede ver una solución "lógica" a lo que nos ocupa. A lo menos a mí me lo parece. Ahora bien, parece que el ejemplo de la ayuda tiene algunos errores... o erratas... o algo... natural, comprensible, humano.

De hecho mi primera respueste fue que se implementase un método de ordenación en una clase derivada de "TList",... porque me parecía lo más lógico del mundo... claro, que, yo no contaba (sabía) que "TList" ya implementa un método "Sort".

Ahora bien, ¿se trata de utilizar el método "Sort", verdad? Pues entonces, puede hacerse siguiendo la ayuda de Delphi aparte y/o a pesar del ejemplo. Lo demuestro arriba, ¿por eso quiero defender la ayuda de Delphi?

Y ahora sí que me voy a cenar... por cierto...

[roman]

Empezado por dec

¿De qué estamos hablando?

Eso a mi me gustaría saber. Tú citaste un ejemplo de Delphi y yo me limité a señalar que es erróneo y que el código de Marcos estaba mejor. Todo lo demás no lo entiendo.

// Saludos