Discussion :

[gandf]

Bonjour,
j'essaie d'installer les composants de asphyre dans BCB6 mais j'ai un bug que je n'arrive pas à régler.
Il y a une propriété qui pose problème :
Je met le début du fichier :

Code :

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

1
2
3
4
5
6
7
type
 TAsphyreMatrix = class
 private
  FRawMtx: TMatrix4;
 
 public
  property RawMtx: TMatrix4 read FRawMtx write FRawMtx;

TMatrix4 étant un :

Code :

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

TMatrix4 = array[0..3, 0..3] of Single;

hors, j'obtiens le code d'erreur suivant :

[Pascal Erreur] AsphyreMatrix.pas(303): Fonctionnalité de langage non supportée : 'propriété de type tableau'

Comment faire? Il y a un autre type proche de celui la pour mettre en property ou faut-il le mettre autrement qu'en property?

Merci

[totoche76]

Hello

Peut-être passer outre les définitions de propriétés:
tu redéclares FRawMtx en public, tu vires les property et tu corriges les appels à RawMtx pour en faire des appels à FRawMtx (ou bien tu renommes FRawMtx en RawMtx, comme ça t'arrange)

Après si tu as des propriétés du style property Toto: tableau read GetToto write SetToto; :
vire le property, remets les GetToto/SetToto en public, et renommage des appels à Toto....

Ca fait pas très propre, mais bon....

Bon courage

[gandf]

Merci, cela ne pose pas de problème quand les propriété ne font pas appel à des fonctions mais quand il y a un set ou un get, cela pose problème.

Il n'y a pas une méthode plus propre? et pourquoi en delphi il y a des propriété de type tableau et que c++builder n'arrive pas à les prendre en compte?

[totoche76]

Hello

Ca fait partie des différences entre le Pascal Objet et le C++... cf l'aide de Builder: "Gestion de la VCL en langage C++" / "Types sans correspondants".....

Dans les parties de code en Pascal, si la propriété Toto est référencée et passée en paramètre à une fonction sous forme de référence (mot clé var), alors oui, il rique d'y avoir un problème. Si elle est passée par valeur, remplace Toto par GetToto dans l'appel...

Merci, cela ne pose pas de problème quand les propriété ne font pas appel à des fonctions mais quand il y a un set ou un get, cela pose problème.

Quel problème ???

[gandf]

Comme je le disais, si :

Code :

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

1
2
3
4
5
6
7
type 
 TAsphyreMatrix = class 
 private 
  FRawMtx: TMatrix4; 
 
 public 
  property RawMtx: TMatrix4 read FRawMtx write FRawMtx;

Devient :

Code :

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

1
2
public 
  RawMtx: TMatrix4;

Cela fonctionne mais certaines propriété font appel à des fonctions. Donc, j'essaie sur ce fichier simple pour voir si votre astuce fonctionne et :

Code :

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

1
2
3
4
5
6
7
 private
  FRawMtx: TMatrix4;
 
  function GetRawMtx(): TMatrix4;
  procedure SetRawMtx(const Value: TMatrix4);
 public
  property RawMtx: TMatrix4 read GetRawMtx write SetRawMtx;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//--------------------------------------------------------------------------
function TAsphyreMatrix.GetRawMtx(): TMatrix4;
begin
 Result:= FRawMtx;
end;
 
//--------------------------------------------------------------------------
procedure TAsphyreMatrix.SetRawMtx(const Value: TMatrix4);
begin
 FRawMtx:= Value;
end;

BCB m'indique toujours que les propriétés de type tableau ne sont pas supportées.

[totoche76]

Hello

Cherche dans le code les appels à la propriété .RawMtx, et remplaces les par des appels à .GetRawMtx (supprime le property RawMtx)

Exemple, si tu as (comme ça, au pif )

Code :

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

1
2
3
4
property ViewMtx: TMatrix4 read GetViewMtx write SetViewMtx;
property ProjMtx: TMatrix4 read GetProjMtx write SetProjMtx;
...
SetTransform(Camera.ViewMtx, Camera.ProjMtx);

Ca devient

Code :

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

1
2
3
4
//property ViewMtx: TMatrix4 read GetViewMtx write SetViewMtx;
//property ProjMtx: TMatrix4 read GetProjMtx write SetProjMtx;
...
SetTransform(Camera.GetViewMtx, Camera.GetProjMtx);

Bonne continuation