Discussion :

[Teo]

Bonjour

Bonne année 2008 tout le monde ! (Bonne santé - des millions de lignes de codes sans bugs - plein d'argent - le tout soupoudré d'amour).

Vla mon soucis.
J'ai des unités, et depuis quelques temps j'evite de rendre les nouvelles
dependentes des autres(au moins dans la partie interface),
pour eviter les references circulaires.

J'ai un Type_A qui est un Record dans l'unité Unt_A.
J'ai une autre unité : Unt_B, qui declarerait un Type RECORD en Forward, dans sa partie Interface (Type_A). Utiliserai dans une fonction Type_A, en parametre.

Puis ce serait que dans la partie implementation(de Unt_B), que je definirai
mon Type_A de la facon suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Unit Unt_A
 
Interface
  Type
    Type_A = Record 
      Chp1:String;
      Chp2:Integer;
    End;
  ...
---------------------------------------------------
Unit Unt_B
 
Interface
  Type
    Type_A = Record :Forward;
 
Function MaFunction(TypA:Type_A):Boolean;
...
 
Implementation
Uses Unt_A;
 
Type
  Type_A = A.Type_A;
  ...

Le compilateur n'est pas d'accord, mais existe t'il une alternative, sans utiliser les pointeurs ?

Merci d'avance pour vos pistes

[mat777]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Unit Unt_B
 
Interface
  Type
    Type_A = Record :Forward;
 
Function MaFunction(TypA:Type_A):Boolean;
...
 
Implementation
Uses Unt_A;

Salut, je pense que le "uses" doit se trouver avant implementation, il doit etre en dessous de unit normalement, enfin d'après ce que j'ai déja vécu...

[Paul TOTH]

non ce n'est pas possible.

Delphi est un compilateur une passe, qui DOIT connaitre la déclaration d'un type avant de l'utiliser

voir mon article sur les références circulaires.

[sjrd]

Effectivement les trois seuls "types de types" qui peuvent être déclarés forward sont : les classes, les interfaces et les pointeurs. La raison en est que, quelle que soit leur implémentation, ils sont toujours stockés sur 4 octets, et n'ont jamais besoin d'initialisation (classes et record) ou toujours besoin d'initialisation (interfaces).

Bon en fait les pointeurs sont pas vraiment déclarés forward, du moins pas pour la partie visible du développeur, puisqu'on le déclare complètement, mais en le faisant pointer vers un type qui n'est pas encore déclaré. Mais en fait, quand on implémente un compilo Delphi, ça revient à faire une déclaration forward

[Teo]

Merci pour vos reponses.

En fait vous avez confirmé mes craintes.
Je transformerais en classe, les type Record compliqués.
Pour le reste je vais creer une unité contenant les types les plus utilisés.
Elle ne fera reference a aucune autre de mes unités.
Elle pourra etre appelée par toutes les autres sans generer de references circulaires, si elle est bien pensée.

C'est a contre coeur que je considere comme resolut.