TList.Sort avec un ^TMonTruc

Bonjour,

Si Delphi accepte une function Compare avec des PMonTruc1 et PMonTruc2 comme argument, la fonction appellée par le TLIst.Sort de Lazarus ne semble accepter que des Pointer comme variables.

Mais dans ce cas, comme pourrais-je faire pour utiliser les champs d'un record TMonTruc dans cette fonction Compare ?

Le transtypage à l'intérieur de ma fonction Compare me renvoie un Error Illegal qualifier :cry:

Merci pour votre aide

Code:

---

1 2 3 4 5

function CompareBazar(PT1, PT2 : Pointer) Var vItem1 : PMonTruc absolute PT1 et rebelote avec vItem2

---

Absolute est une solution. Il y a aussi la possibilité d'utiliser un transtypage (casting) :

Code:

---

1 2 3 4 5 6

function CompareBazar(PT1, PT2 : Pointer) var vItem1 : PMonTruc; begin vItem1 := PMonTruc(PT1);

---

J'avais essayé ta version de code, et le compilo me jettait avait un illegal qualifier.

Par contre, l'absolute passe la compil.

Il me reste maintenant à trouver les réglages pour que le pas à pas marche sur mon install.