delphi (if else case of )

Bonjour
J’effectue un stage dont le sujet est le développement d’un logiciel interne sous Delphi et j’ai un souci d'affichage de courbes.
Au début il y avait une fenêtre d’affichage dans j’ai rajoutez un bouton qui permet de ouvrir une autre fenêtre dont l'utilisateur doit rentrer des données puis d’après c’est donné le logiciel fait le calcul et à la fin j affiche une courbe
Mon souci c’est que je dois afficher mes courbes sur 2 objets différents (soit l’un soit autre)
Je souhaiterais bien savoir s’il y a une fonction appart « if else » car j’ai essayé avec
ca et j’ai toujours des problèmes de structures aussi je voudrais me renseignez sur la fonction
case ***** of
1 : ****** ;
2 : ****** ;

Bonjour,

Citation:

---

Envoyé par fz.saida

ca et j’ai toujours des problèmes de structures aussi je voudrais me renseignez sur la fonction
case ***** of
1 : ****** ;
2 : ****** ;

---

Amenez le curseur dans votre code source sur le mot clé case puis appuyez sur :f1: !
Vous aurez les réponses à vos questions... :zoubi:

enfaite je me suis pas bien expliqué mon Souci c’est que j’ai un fonction qui dépend de deux variable dans la partie graphique et selon ou l'utilisateur clique (sous-station ou multimètre) et je dois récupérer le courant qui est sur mon graphe

en effet j'essai (OR) mais c'est n'ai valable que pour les booléen, ma question Ya pas une autre syntaxe dans je peux exprimer mon programme ?
en passant juste par la seul condition ( courantcat :) sans la répéter

Code:

---

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

case resultat of courantcat :begin //courantcat resultattemp:= ObjetTemplist.rangekutta4(TobjetresultatsSST(objetTemplist.I).Temps[k],TobjetresultatsSST(objetTemplist.I).Temps[k+1],1,T1,TobjetresultatsSST(objetTemplist.I).CourantCat[k]); T1:=resultattemp.Cells[1,2]; objettemplist.theta.AddXY(TobjetresultatsSST(objetTemplist.I).Temps[k],T1); end;   courantcat :begin resultattemp:= ObjetTemplist.rangekutta4(TObjetResultatsMultimetre(objetTemplist.I).Temps[k],TObjetResultatsMultimetre(objetTemplist.I).Temps[k+1],1,T1,TobjetresultatsSST(objetTemplist.I).CourantCat[k]); T1:=resultattemp.Cells[1,2]; objettemplist.theta.AddXY(TObjetResultatsMultimetre(objetTemplist.I).Temps[k],T1); end;

---

Tu as mis deux fois courantcat dans le case fourni mais tu donnes des objets TobjetresultatsSST et TObjetResultatsMultimetre que tu sembles mélanger

Si on lit ton code TObjetResultatsMultimetre hérite de TobjetresultatsSST
puisque tu fais sur la même ligne de le transtypage de objetTemplist.I comme ceci TObjetResultatsMultimetre(objetTemplist.I).Temps[k+1],1,T1,TobjetresultatsSST(objetTemplist.I).CourantCat[k]);

En fait, le case avec du cast d'objet est typique d'une mauvaise compréhension de la POO

Si TobjetresultatsSST et TObjetResultatsMultimetre n'ont pas de lien d'héritage direct

Code:

---

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

if objetTemplist.I is TobjetresultatsSST then begin with TobjetresultatsSST(objetTemplist.I) do begin resultattemp:= ObjetTemplist.rangekutta4(Temps[k], Temps[k+1], 1, T1, CourantCat[k]); T1:=resultattemp.Cells[1,2]; objettemplist.theta.AddXY(Temps[k],T1); end; end else objetTemplist.I is TObjetResultatsMultimetre then begin with TobjetresultatsSST(objetTemplist.I) do begin resultattemp:= ObjetTemplist.rangekutta4(Temps[k], Temps[k+1], 1, T1, CourantCat[k]); T1:=resultattemp.Cells[1,2]; objettemplist.theta.AddXY(Temps[k],T1); end; end;

---

Si TObjetResultatsMultimetre hérite de TobjetresultatsSST, c'est plus court évidemment

Code:

---

1 2 3 4 5 6 7 8 9

if objetTemplist.I is TobjetresultatsSST then begin with TobjetresultatsSST(objetTemplist.I) do begin resultattemp:= ObjetTemplist.rangekutta4(Temps[k], Temps[k+1], 1, T1, CourantCat[k]); T1:=resultattemp.Cells[1,2]; objettemplist.theta.AddXY(Temps[k],T1); end; end;

---

en effet mes deux class TobjetresulatsSST et TobjetresulatsMultimetre hérite d'une classe mère qui est Tobjetresulats . Aussi objetTempliste c’est mon constructeur avec lequel je récupère mon courantcat et je l’affiche dans un graphe après un passage par le programme que j’ai réalisée
les donné de courant cat diffère selon ou on est (TobjetresulatsSST et TobjetresulatsMultimetre )
Le souci que j’ai c’est quand je veux afficher mon graphe il ne prend pas en compte ma 2eme parti du programme ; j’ai essai le if else J’ai toujours un problème de end attendu au lieu de ; par contre avec la fonction case sa marche mais il ne passe pas par ma deuxième partie après else

Code:

---

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

for k := 0 to (ObjetTemplist.I.getTaille-2) do case resultat of courantcat:begin if (resultat = courantcat) then begin //courantcat resultattemp:= ObjetTemplist.rangekutta4(TobjetresultatsSST(objetTemplist.I).Temps[k],TobjetresultatsSST(objetTemplist.I).Temps[k+1],1,T1,TobjetresultatsSST(objetTemplist.I).CourantCat[k]); T1:=resultattemp.Cells[1,2]; objettemplist.theta.AddXY(TobjetresultatsSST(objetTemplist.I).Temps[k],T1); end else begin resultattemp:= ObjetTemplist.rangekutta4(TObjetResultatsMultimetre(objetTemplist.I).Temps[k],TObjetResultatsMultimetre(objetTemplist.I).Temps[k+1],1,T1,TobjetresultatsSST(objetTemplist.I).CourantCat[k]); T1:=resultattemp.Cells[1,2]; objettemplist.theta.AddXY(TobjetresultatsSST(objetTemplist.I).Temps[k],T1); end end;

---

quand je lance mon programme pas par pas il passe pas par la deuxième partie même si on n’y est sur le la fiche d'affichage

Est-ce que tu relis un peu ce que tu écrits ??
Si l'on extrait juste la structure case\if voici ce que cela donne

Citation:

---

Envoyé par fz.saida

Code:

---

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

for k := 0 to (ObjetTemplist.I.getTaille-2) do case resultat of courantcat: begin if (resultat = courantcat) then begin //courantcat resultattemp:= end else begin resultattemp:= end end;

---

---

le else //courantcat est impossible puisque déjà éliminé par le case !
Faudrait mieux maitriser la syntaxe du Delphi !

Citation:

---

Envoyé par fz.saida

en effet mes deux class TobjetresulatsSST et TobjetresulatsMultimetre hérite d'une classe mère qui est Tobjetresulats .

---

Évident, vu l'erreur de transtypage SST et MM et l'aspect du code,
Pourquoi ne pas contacter l'auteur à l'origine du projet pour qu'il t'aide ?

Donc tu pouvais simplifier le code que je l'ai déjà fourni
puisqu'il n'y a pas aucune différence visible dans ce cas entre TobjetresulatsSST et TobjetresulatsMultimetre, on doit pouvoir écrire :

Code:

---

1 2 3 4 5 6 7 8 9

if objetTemplist.I is Tobjetresulats then begin with Tobjetresulats (objetTemplist.I) do begin resultattemp:= ObjetTemplist.rangekutta4(Temps[k], Temps[k+1], 1, T1, CourantCat[k]); T1:=resultattemp.Cells[1,2]; objettemplist.theta.AddXY(Temps[k],T1); end; end;

---

Citation:

---

Envoyé par fz.saida

les donné de courant cat diffère selon ou on est (TobjetresulatsSST et TobjetresulatsMultimetre )

---

Cela ne voit pas dans le code fourni !
Essaye de mieux cerner le polymorphisme de tes classes !
Je pense que certains propriétés sont déjà ou peuvent être mises en commun dans Tobjetresulats sans devoir explicitement typé tes classes !

Enfaite c'est ma premier fois que je me lance dans un projet comme celui-ci surtout j' ai jamais de la programmation c'est normal que je fasse de tel erreurs concernant le programme la personne qu’il l’a développé est parti vous pouvez m’expliquer la différence entre le deux instruction

Ah, tu reprends le projet sans personne pour t'aider alors que tu débutes, ce n'est pas un cadeau !

Quelles instructions ?

Merci c’est gentil de ta part.
:roll:la fonction case quand il faut l’utiliser, la même chose pour le if else et pourquoi on peut pas les mettre ensemble (l’une dans l’autre ou l’inverse )

Guide Pascal et Delphi
VIII-A-1. Blocs 'if'
VIII-A-2. Blocs 'case'