Discussion :

[Marco88]

Bonjour,

J'ai un petit problème de débutant que je n'arrive pas à résoudre.

Voilà en fait je crée une classe1 qui possède un certain nombre d'attributs dont 2 d'entre eux sont initialisés à 0.

Code :

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

1
2
3
4
5
6
7
8
9
10
Constructor CVirus.Create (aNom, aCheminImg: string; aVirulence, aTpsGeneration, aResistance1: integer);
Begin
     fNom:= aNom;
     fResistance1:= aResistance1;
     fVirulence:= aVirulence;
     fTpsGeneration:= aTpsgeneration;
     fCheminImg:= aCheminImg;
     fx:=0;
     fy:=0;
End;

Plus tard, dans une autre unité, je voudrais créer un objet de Class1 mais en modifiant les valeurs des attributs que j'ai initialisés à 0.
J'ai essayé de créer une méthode dans la classe 1 me permettant de récupérer les 2 attributs en question :

*Dans Classe1:

Code :

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

1
2
3
4
5
6
7
8
9
Function CVirus.Getx:integer;
Begin
     Getx:=fx;
end;
 
Function CVirus.Gety:integer;
Begin
     Gety:=fy;
end;

*Dans la Classe2:

Code :

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

1
2
3
4
5
6
7
V:= CVirus.Create((MaBiblio.Objects[k] as CVirus).GetNom,
                                       (MaBiblio.Objects[k] as CVirus).GetCheminImg,
                                       (MaBiblio.Objects[k] as CVirus).GetVirulence,
                                       (MaBiblio.Objects[k] as CVirus).GetTpsGeneration, 
                                       (MaBiblio.Objects[k] as CVirus).GetResistance1);
          (MaBiblio.Objects[k] as CVirus).Getx:= Tableau[t,2];
          (MaBiblio.Objects[k] as CVirus).Gety:= Tableau[t,3];

C'est sur ces deux dernières lignes que se situe le problème. Les cases de mon tableau contiennent des entiers et je voudrais que les attributs de ma classe prennent pour valeur ces entiers. Mais l'erreur renvoyée est:
Argument can't be assigned.

Pouvez-vous m'en dire plus svp !

Merci d'avance !!!