Discussion :

[sovitec]

Je ne maitrise pas encore trop delphi, alors je soumets à votre sagacité un problème qui me semble simple, mais pour lquel je n'arrive pas à trouver de solution.

J'ai déclaré un type

TArrayOfMonType = array of MonType;

et j'ai des variables de type array of MonType que je voudrais passer à une fonction qui prend en argument une variable de type TArrayOfMonType. Est ce possible sans faire une bête, mais couteuse, copie ?

[Clorish]

Code :

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

1
2
3
4
5
6
 
Type 
     TArrayOfMonType = Array of MonType;
 
Var 
    MonTab = Array of MonType;

Si tu as ecrit qque chose comme ca c'est pas tres logique. Remplace plutot par ca :

Code :

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

1
2
3
 
Var
   MonTab := TArrayOfMonType

Si tu as des problemes de portabilité d'une unite a l'autre, pense a creer une unite a part (MesTypes.pas) qui contient toutes les declaration des types (et uniquement ca) et tu insert cette unite dans chaques unite qui utilise un de ces types.

Sinon tu as bien ca :

Code :

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

1
2
 
Maprocedure(TArrayofMonType(MonTab));

Mais bon .... c'est plus propre de redefinir lestypes de tes variables.

Ce qui m'etonnes c'est que le passage d'un "Array of MonType" en parametre ne marche pas directement .... (ou alors j'ai mal compris la question)

[sovitec]

Merci pour la résponse, je crois que tu as bien compris la question. Le problème c'est que Delphi refuse même les conversions explicites comme

Code :

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

1
2
3
4
5
Maprocedure(TArrayofMonType(MonTab));
 
ou
 
Maprocedure(MonTab as TArrayofMonType);

En fait toute l'application a été codée en utilisant des "array of MonType" mais pour une fonction particulière j'ai besoin de retourner une variable de ce type, ce que delphi refuse, j'ai donc du déclarer le type TArrayOfMonType.

La solution propre serait bien sûr d'utiliser des TArrayOfMonType partout. Le problème c'est qu'on est plusieurs sur le projet et que je ne peux modifier unilatéralement des unités sur lesquels d'autres travaillent.

[Mac LAK]

Il me semble que lorsque l'on écrit :

Code :

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

1
2
Var
  A, B : Array Of MyType ;

Delphi reconnaît que les deux variables sont de même type.

Par contre, écrire :

Code :

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

1
2
3
Var
  A : Array Of MyType ;
  B : Array Of MyType ;

implique que les deux variables sont de types différents et ne peuvent être assignées l'une à l'autre ou qu'il y a je ne sais plus quelle limitation sur leur usage...

A vérifier, cependant => éplucher l'aide Delphi, chapitres "Dynamic array" et "Open array parameters" au minimum.

[Clorish]

Sinon ya ca :

Code :

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

1
2
3
4
 
Type
   TArrayOfMonType = Array Of MonType;
   PArrayofMonType = ^TArrayOfMonType;

Un pointeur reste un pointeur .... quelque soit le type vers lequel il pointe ... (enfin je crois ... mais vu que j'etait pas au courrant des limitations des array of .. j'ai un doute ;pp)

Comme ca ca devrais regler certains pbs ... mais faudra passer l'adresse de ta var "Array of MonType" (avec @) et non directement la variable ..... puis utiliser tous les trucs du genre "^" ....
Bref Gestion de pointeurs classique.

[sovitec]

Bon j'ai fini par récupérer toutes les parties de code dont j'avais besoin et mis des TArrayOfMonType partout.

Merci de votre aide. 8)