Bonjour,

Je debute en Delphi, et je suis confronte a un pb, je dois faire un forward de class et je n'y arrive pas, soit j'ai le message Class1 is not yet completely defined, soit circular qqch...

Voici ce que j'ai fait:
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
27
28
29
30
31
32
33
34
35
36
37
 
fichier class1.pas
-----------------------------------
unit class1;
 
interface
 
type
  Tclass2 = class;
 
  Tclass1 = class
  private
    MyName: string;
 
.
.
.
.
implementation
 
uses
  class2;
 
 
fichier class2.pas
------------------------------------
unit class2;
 
interface
 
uses
  class1, SysUtils;
 
type
  Tclass2 = class(Tclass1)
  private
    MyName: string;
Je suis alle voir la doc ou il parle de predeclaration, mais je n'arrive pas a trouver mon erreur...

Merci d'avance pour l'aide