delphi (if else case of )

**fz.saida** · 29/04/2013, 15h50

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 : ****** ;

**Ph. B.** · 29/04/2013, 15h57

Bonjour,

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

!
Vous aurez les réponses à vos questions...

**fz.saida** · 30/04/2013, 14h32

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 :

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

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;

**ShaiLeTroll** · 30/04/2013, 16h37

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 :

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
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 :

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

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;

**fz.saida** · 02/05/2013, 13h33

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 :

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
 
  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

**ShaiLeTroll** · 02/05/2013, 14h58

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

Envoyé par fz.saida

Code :

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

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 !

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 :

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

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;

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 !

**fz.saida** · 02/05/2013, 16h25

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

**ShaiLeTroll** · 02/05/2013, 17h15

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

Quelles instructions ?

**fz.saida** · 03/05/2013, 09h36

Merci c’est gentil de ta part.

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 )

**ShaiLeTroll** · 03/05/2013, 09h53

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

delphi (if else case of )

Langage Delphi

Discussions similaires

Partager

Partager