Bonjour,
Ceci est mon premier post sur ce site qui est décidément incontournable. Je suis autodidacte et m'interesse actuellement aux concepts/notions de persistance et de design patterns. Pour cela, je m'aide du tuto de ercaz54 : http://blog.developpez.com/erca57/p6...tern/#more6767 .
J'essaie de compiler le code suivant sans succés :
Le message retourné par le compilateur est : uopfroot.pas(15,59) Error: Identifier not found "TBizObjVisitor"
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
38 unit uOPFRoot; {$mode objfpc}{$H+} interface uses Classes, SysUtils; Type TBizObj = class(TObject) public procedure AcceptBizObjVisitor(Visitor: TBizObjVisitor ); virtual; end; TBizObjVisitor = class(TObject) public procedure VisitBizObj(Instance: TBizObj); virtual; end; implementation { ******************************** TBizObjVisitor ******************************** } procedure TBizObjVisitor.VisitBizObj(Instance: TBizObj); begin end; { *********************************** TBizObj ************************************ } procedure TBizObj.AcceptBizObjVisitor(Visitor: TBizObjVisitor); begin Visitor.VisitBizObj(Self); end; end.
J'utilise Lazarus 0.9.28.2 beta et fpc 2.2.4 sur machine Mac OS 10.6.2
Merci d'avance.
Partager