Discussion :

[delphidebutant]

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

Merci pour votre aide

[delphidebutant]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function CompareBazar(PT1, PT2 : Pointer)
Var
vItem1 : PMonTruc absolute PT1
et rebelote avec vItem2

[batyann811]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
function CompareBazar(PT1, PT2 : Pointer)
var
  vItem1 : PMonTruc;
begin
  vItem1 := PMonTruc(PT1);

[delphidebutant]

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.