Probleme de forward

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:

---

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

Bonjour

Théoriquement vous devez avoir 2 Unit

Unit1 contient classe1
par exemple

Code:

---

1 2	TClasse1 = class(Tobject) end;

---

Unit2 contient classe2

par exemple

Code:

---

1 2	TClasse2 = class(TClasse1) end;

---

Dans votre code vous avez 2 unit
Unit2 contient une définition de la classe2

Unit 1 Contient une declaration incorecte de la classe1 et une predeclaration de la classe2

quand vous ecrivez

Code:

---

Tclass2 = class;

---

, cela siginfie que TClasse2 est une classe qui vas être définie plus tard dans l'unit.

Bonjour,

Merci pour votre reponse, j'ai oublie un petit detail

Code:

---

1 2 3 4 5 6 7

type TClass2 = class; TClass1 = class(Tobject) public procedure proc1(cl2: TClass2); end;

---

Code:

---

1 2 3 4

type TClass2 = class(TClass1) end;

---

Dans le code de ma class1, j'ai une fonction qui prend en parametre un objet class2, d'ou le forward.
Est-il possible d'avoir un fichier .pas pour la class1 et un autre pour la class2 ou les deux class doivent etre definie dans le meme fichier .pas?

Merci

Bonjour,


Les classes peuvent être définies dans des unités distinctes.

Procédes comme cela :

Unit2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

unit Unit2;   interface   type   TCl2 = class(tobject) private public end;   implementation   end.

---

unit3 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

unit Unit3;   interface uses Unit2, Dialogs;   type     TCl1 = class(tobject) private public procedure JustDoIt(obj: TCl2); end;   implementation   { TCl1 }   procedure TCl1.JustDoIt(obj: TCl2); begin ShowMessage('Appel JustDoIt()'); end;   end.

---

Voila.
@+

N'oublies pas le tag :resolu: ou :delestage:

Cela est possible

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Unit Unit1;   Uses ..............................;   type TClass2 = class; // Indique que TClass2 existe, qu'il sera créer plustard et que je veut l'utiliser avantde le créer (dans TClass1 dans le cas actuelle)   TClass1 = class(Tobject) public procedure proc1(cl2: TClass2); end;   TClass2 = class(TClass1) end;

---

Par contre mettre "TClass2 = class(TClass1)" dans un autre unit ne devrait pas fonctionner.

Ne serait'il pas possible de créer une class contenant juste les paramètres à transmettre et de les utiliser dans la classe 2.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Unit Unit1;   Uses ..............................;   type TParamsClass2 = class; // Indique que TParamsClass2 existe, qu'il sera créer plustard et que je veut l'utiliser avantde le créer (dans TClass1 dans le cas actuelle)   TClass1 = class(Tobject) public procedure proc1(cl2: TParamsClass2); end;   TParamsClass2 = class(TObject) end;

---

Eventuellement les parametres peuvent être un record.

Une autre solution peur être:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function TClasse1.proc1(Classe2: Tobject;var Erreure: string): boolean; begin Result := false;   if Object = nil then begin Erreure := 'Classe2 est vide'; Exit; End;   if not(Object is TClasse2) then begin Erreure := 'Classe2 n'est pas un TCLass2'; Exit; End;   // Fair içi le traitemement   Erreure := ''; Result := True; end;

---

Cela fonction si vous mettez L'unit2 dans le uses apres implementation.
Surtout ne le mettez pas dans le 1° Uses (boucle).

Pour resumer vous pouvez
1° utiliser une unit pour les 2 classes
2° passer les parametres dans un format ou une classe commune au 2 classes (dans unit1 ou dans une unit speciale)
3° transtyper la classe2 (attention a ne metree Unit2 que dans le uses apres implementation)

Merci pour vos reponses,

J'ai pris l'option et ca marche parfaitement! :D

Merci beaucoup