Discussion :

[Gweta]

Bonjour,
J'ai un programme qui marche correctement avec un objet.
Un ensemble de valeurs sont calculées dans une methode de la classe et sont transmises pour etre utilisées dans le programme principal.
Par soucis de clarté et pour apprendre à utiliser les record, j'ai simplement remplacé un tableau par un record.
Je n'ai pas d'erreur de compilation mais les valeurs ne sont plus transmises.
Y-a-t'il une incompatibilité (du genre pointage ...) ou une subtilite que je ne connais pas ?
Ca marche avec un tableau et pas avec un record !
J'espere avoir reussi à expliquer mon probleme
Merci d'avance

[ShaiLeTroll]

Sans un Code (juste le nécessaire) comment savoir ce que sont tes objets, record et tableau

[Gweta]

Je vais essayer de montrer l'essentiel de mon code sans en mettre des pages :

Dans mon prog principal :

Code :

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

1
2
3
4
5
6
7
 
stockCHAUD:=Tstock.create(matPCM);
...
stockCHAUD.INTversDERIV(stockCHAUD.FxTP,stockCHAUD.FdMUS,stockCHAUD.Finfos);
...
Series1.addXY(h,stockCHAUD.Finfos.qx);
...

Ma unit de classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Tstock = class
...
	public
	FInfos : Tdata;
...
end;
...
procedure Tstock.INTversDERIV(xTP:vecteur ; var dMUS:vecteur;Finfos:Tdata);
var 	...
begin
...
	FInfos.qx	:= dq_x;
...
end;

ET dans une unit (appelée par les autres unit):

Code :

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

1
2
3
4
5
6
7
8
9
 
type
Tdata = record
	qx:extended;
	qo:extended;
	qhtf:extended;
	Tcs:extended;
	sigma :extended;
end;

Avant, au lieu du record Finfos, j'avais un tableau et ca marchait bien. Maintenant, je n'ai pas de message d'erreur mais stockCHAUD.Finfos.qx reste égale à 0 alors qu'au sein de la méthode INTversDERIV, je vois que Finfos.qx est modifié !!
Merci d'avance

[Rayek]

Il te faut rajouter un var pour que les modifications du record soit prises en compte dans la procédure. Car c'est la variable FInfos de ta procédure qui sera prise en compte et pas celle de ta class (C'est une grosse faute d'écriture ce que tu fais, tu devrais changer les noms de tes varaibles pour ne pas te melanger)

Code :

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

1
2
 
procedure Tstock.INTversDERIV(xTP:vecteur ; var dMUS:vecteur; var Finfos:Tdata);

[Gweta]

Oh merci ... il manquait donc juste 3 petites lettres !!! Quel bonheur de voir mes courbes réapparaitre à l'écran
Et puis, oui, je sais q je ne maitrise pas encore les conventions pour les noms de variables, là je me suis laissée aller
Encore merci

[ShaiLeTroll]

Comme le remarque Rayek

Code :

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

procedure Tstock.INTversDERIV(xTP:vecteur ; var dMUS:vecteur; var AInfos:Tdata);

AInfos comme nom de paramètre pour ne pas masquer FInfos ...
En général, A est souvent utiliser comme préfixe d'un paramètre (ce vient-il de l'article indéfini a de l'anglais, ou autre chose je ne sais rien), parfois ou voit aussi "_Infos"