Discussion :

[JP CASSOU]

Ce pb est résolu.

La cause: Une déclaration de TPoint2DDepth dans une unité et la même déclaration dans une autre. Centraliser les déclarations de types



Bjr,

Soient les types suivants:

Code :

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

1
2
3
4
 
// fonction de transformation 3D -> 2D
type TProcOfObjectProjTPoint3DfTo2d      = function(const QP: TPoint3Df): TPoint2DDepth      of object;
type TProcOfObjectProjPtXYZto2d           = function(const QX, QY, QZ: double): TPoint2DDepth of object;

Soient les fonctions déclarées dans un descendant TFrame appelé TCdrVisualisateur3DGDI

Code :

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

1
2
3
 
    function  Get2DDepthCoordinatesFromP3D(const QP: TPoint3Df): TPoint2DDepth;
    function  Get2DDepthCoordinatesFromXYZ(const QX, QY, QZ: double): TPoint2DDepth;

J'ai créé un conteneur TListeTubesVisees qui comporte la fonction d'assignation (publique). Ce conteneur est hébergé par TCdrVisualisateur3DGDI:

Code :

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

1
2
 
   procedure SetFunctionProjection(const FXYZ: TProcOfObjectProjPtXYZto2d);

.

Lorsque je tente d'assigner dans une instance de TListeTubesVisees la fonction TCdrVisualisateur3DGDI.Get2DDepthCoordinatesFromXYZ:

Code :

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

1
2
 
FListeTubesVisees.SetFunctionProjection(self.Get2DDepthCoordinatesFromXYZ);

; ce fdp de compilateur me jette avec l'erreur suivante:

Code :

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

1
2
 
cadrevisualisateur3dgdi.pas(194,73) Error: Incompatible type for arg no. 1: Got "TCdrVisualisateur3DGDI.Get2DDepthCoordinatesFromXYZ(const Double;const Double;const Double):<record type>;", expected "<procedure variable type of function(const Double;const Double;const Double):<record type> of object;Register>"

Première fois que je vois çà.