Problème avec tableaux dynamiques et procédure

**K20** · 03/01/2006, 16h34

Bonjour à tous !
Voilà j'ai un gros problème avec des tableaux dynamiques et j'y arrive pas

J'ai 3 unités : moteur_graphique_map (unité principale), moteur_graphique_parseur et moteur_graphique_draw_object.

Mon fichier moteur_graphique_parseur parse un fichier .obj qui est d'un type que j'ai défini.
Ensuite, je récupère mon tableau que j'applique à une procédure qui est dans moteur_graphique_draw_object.

Et les procédures sont utilisées dans moteur_graphique_map.

Voici la définition de mes types qui est dans moteur_graphique_draw_object et moteur_graphique_parseur :

Code :

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

1
2
3
4
5
6
7
8
type
  TVertex = Record
    gl : integer;
    x, y, z, r, g, b, a : real;
    texture : string;
  end;
 
  TabVertex = array of TVertex;

Les déclarations de mes procédures :
dans moteur_graphique_parseur : avec la variable global de mon tableau qui sera utilisé

Code :

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

1
2
3
4
var
  Vertex : TabVertex;
 
function Parseur_map(NomObj : string) : integer;

moteur_graphique_draw_object :

Code :

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

procedure draw_object(vecteur: TabVertex; nb_vecteur:integer; coord_x,coord_y:double);

Et enfin là où j'utilise mes procédure dans moteur_graphique_map :

Code :

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

1
2
3
4
5
{------------------------}
      // Afficher une maison //
      {------------------------}
      Nb_vertex := Parseur_map('Objets/maison1.obj');
      draw_object(Vertex,Nb_vertex,20,20);

Et quand je veux compiler j'obtiens cette erreur :

[Erreur] moteur_graphique_map.pas(358): Types incompatibles

Sachant que la ligne 358 c'est

Code :

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

draw_object(Vertex,Nb_vertex,20,20);

et c'est Vertex qui bloque

Je ne comprend pas, se sont les mêmes types et ça bloque ...

Aidez moi

Merci d'avance

**LadyWasky** · 03/01/2006, 16h49

Tu passes un Type TVertex, a une procedure draw_object qui attends un TabVertex.

C'est comme si tu passais un string à la place d'un integer (en gros).

Edit : excuses, j'avais mal vu --> tu fait bien comme il faut de ce côté là.

Edit2 : j'ai trouvé, voir post qui suit.

**LadyWasky** · 03/01/2006, 17h02

Voilà une solution à essayer :

Déclares tes variables et procédures qui suivent comme ça

Code :

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

1
2
3
4
5
6
var
  Vertex : array of TVertex;
 
...
 
procedure draw_object(vecteur: array of TVertex; nb_vecteur:integer; coord_x,coord_y:double);

Là, ça devrait être bon ;p

**K20** · 03/01/2006, 17h17

Si c'était si facile ça aurait été trop beau

J'ai déjà essayé, ça me met une autre erreur :

[Erreur] moteur_graphique_map.pas(358): Types incompatibles : 'Array' et 'dynamic array'

...

**LadyWasky** · 03/01/2006, 17h45

Là je sêche

**bjl** · 03/01/2006, 17h46

comment sais tu que c'est vertex qui bloque ?

**K20** · 03/01/2006, 18h02

Car j'ai essayé de mettre les paramètres sur des lignes différentes et que c'était la ligne du Vertex qui plantait

(et puis je vois pas pourquoi le type integer planterait ^^)

**bjl** · 03/01/2006, 18h06

fais tu des modifs sur vartex dans draw_object ?

personellement, j'aurais plutôt passé un pointeur sur TabVertex en paramètre.

**K20** · 03/01/2006, 18h43

J'ai trouvé

Ce que j'ai fait une nouvelle unité que j'ai nommé type_graphique
Et dedant j'ai seulement mis la définition de mon type ^^

Ensuite j'apelle cette unité dans mes 2 autres unités et plus d'erreur

En fait pour lui c'était des types différents

(bon j'ai encore une erreur mais ça vient d'autre chose dans mon programme

)

Merci pour votre aide !!