Programmation Objet : EAccessViolation

Version imprimable

Je développe une petite application objet,
je souhaite faire un enregistrement d'un tableau d'emprunts, mais lorsque j'appel ma fonction TLesEmprunt.creer() il me lance une erreur EAccessViolation...
J'ai d'autres classes qui fonctionnent exactement de la même manière (seuls les paramètres changents) mais je n'ai pas cette erreur.
Merci d'avance pour votre aide parce que la je sèche.
voici mon code

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
 
TEmprunt = class
private
CodeEmprunt:integer;
CodeEmprunteur:integer;
Media:string;
Titre:string;
DateEmprunt:string;
DateRetour:string;
public
  constructor creer(C,CE:integer;M,T,DE,DR:string);
  function getCodeEmprunt():integer;
  function getCodeEmprunteur():integer;
  function getMedia():string;
  function getTitre():string;
  function getDateEmprunt():string;
  function getDateRetour():string;
end;
 
TLesEmprunts = class
private
  LesEmprunts : TObjectList;
public
  constructor creer();
  procedure AjoutEmprunt(CA,CEA:integer;MA,TA,DEA,DRA:string);
  function getUnEmprunt(C:integer):TEmprunt;
  function countLesEmprunts():integer;
  function supprimerEmprunt(F:TEmprunt):boolean;
  function DonneNouveauCode():integer;
end;
 
constructor TEmprunt.creer(C,CE:integer;M,T,DE,DR:string);
begin
  inherited create();
  CodeEmprunt := C;
  CodeEmprunteur := CE;
  Media := M;
  Titre := T;
  DateEmprunt := DE;
  DateRetour := DR;
end;
 
constructor TLesEmprunts.creer();
begin
  LesEmprunts := TObjectList.Create();
end;
 
procedure TLesEmprunts.AjoutEmprunt(CA,CEA:integer;MA,TA,DEA,DRA:string);
var unEmprunt:TEmprunt;
begin
    unEmprunt.creer(CA,CEA,MA,TA,DEA,DRA); <--- Lerreur se situe ici...
    {LesEmprunts.Add(unEmprunt);}
end;

Tu n'aurais pas besoin d'un
inherited create();
dans ton
Code:

1 2 3 4 constructor TLesEmprunts.creer(); begin LesEmprunts := TObjectList.Create(); end;

Salut !

Je pencherai plus pour un:

Code:

1
2
3
4
5
6
procedure TLesEmprunts.AjoutEmprunt(CA,CEA:integer;MA,TA,DEA,DRA:string);
var unEmprunt:TEmprunt;
begin
    unEmprunt:=TEmprunt.creer(CA,CEA,MA,TA,DEA,DRA);
    {LesEmprunts.Add(unEmprunt);}
end;

;)

non, je pense pas en avoir besoin à ce niveau là...
Je pense que mon erreur se situe au niveau de mon constructor
Mais hônnetement je comprend pas du tout...
Code:

1 2 3 4 5 6 7 8 9 10 11 constructor TEmprunt.creer(C,CE:integer;M,T,DE,DR:string); begin inherited create(); CodeEmprunt := C; <---il me pointe ici toujours avec EAccessViolation CodeEmprunteur := CE; Media := M; Titre := T; DateEmprunt := DE; DateRetour := DR; end;

11/04/2007, 16h11
Gig_Gig

Bon ok je vois
merci l'hermite pervers...
Dis tu me poursuis ou quoi ????
:king:

Tu n'as nul besoin d'une variable intermédiaire.

Code:

1
2
3
4
procedure TLesEmprunts.AjoutEmprunt(CA,CEA:integer;MA,TA,DEA,DRA:string);
begin
  LesEmprunts.Add( TEmprunt.creer(CA,CEA,MA,TA,DEA,DRA) );
end;

Modifies tes classes selon ce modèle:

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
TEmprunt = class
private
  FCodeEmprunt:integer;
  FCodeEmprunteur:integer;
  FMedia:string;
  FTitre:string;
  FDateEmprunt:string;
  FDateRetour:string;
protected
  procedure setCodeEmprunt(value: integer);
  procedure setCodeEmprunteur(value: integer);
  procedure setMedia(value: string);
  procedure setTitre(value: string);
  procedure setDateEmprunt(value: string);
  procedure setDateRetour(value: string);
public
  constructor creer(C,CE:integer;M,T,DE,DR:string);
  destructor Destroy; override;
  property CodeEmprunt:integer read FCodeEmprunt write setCodeEmprunt();
  property CodeEmprunteur:integer read FCodeEmprunteur write setCodeEmprunteur();
  property Media:string read FMedia write setMedia;
  property Titre:string read FTitre write setTitre;
  property  DateEmprunt:string read FDateEmprunt setDateEmprunt;
  property DateRetour:string read FDateRetour setDateRetour;
 
 
  end;

13/04/2007, 10h06
Gig_Gig

Oui c'est vrai que je n'en ai pas besoin...
J'ai regarder ton code, override et protected je connais pas trop encore
(je suis étudiant en informatique :D)
quel est l'interêt ?