Hola,

Efectivamente, hay confusión, y la culpa es mía, que me confundieron las palabras de Román:

Yo debí mirar el código de Marcos por encima, no caí en que se trataba del código correcto, y así me puse a defender mi código y no el de Marcos, basándome, por supuesto, en que mi código seguía la ayuda de Delphi, siguiera o no el ejemplo... Claro, por medio también ha estado que, precisamente el ejemplo que nos ocupa de la ayuda de Delphi está equivocado, contiene una errata... ¿y cuántos ejemplos de la ayuda de Delphi han visto que contengan erratas? Yo creo que este es el primero que veo...

Pido disculpas a quienes se pudieran sentir molestos o extrañados. Procuraré estar más vivo la próxima vez. :o

Hola,

Joroba, yo que esperaba una respuesta del tipo "No te preocupes David", o "A todos nos pasa David, no te apures", o "No hace falta pedir disculpas, hombre", o "¿Qué demonios cenaste, si puede saberse?"... Cómo sois... hay que veros... :eek: :) :D

No te preocupes David...

:D :D :D

Hola,

Ah, esto ya es otra cosa, ¿ves? Así sí. Gracias Marcos. ;)

Por cierto, buscamos el usuario número 100 de Loturak... :eek: :eek: :eek: :D

Listo, ya somos 100 :D :D :D

Hola,

¡Muchas gracias! Esperamos que te sea útil. Pásate por la taberna y pide algo que nosotros lo pagamos... :eek: :eek: :) :D :)

De forma más simplificada
 

Una forma mas simple de solucionar el problema

Código Delphi [-]
function Compare(Item1: Pointer; Item2: Pointer): Integer;
begin
  if TMiClase(Item1).Propiedad > TMiClase(Item2).Propiedad then
    Result := 1
  else
    if TMiClase(Item1).Propiedad = TMiClase(Item2).Propiedad then
      Result := 0
    else
      Result := -1
end;

Saludos...[/quote]

Alguién anda atrasado 3 años... :D :D :D