instruction caseRésolu

Question

bonjour  :)
j'utilise une variable pour d&#233;finir une plage dans une instruction case.
le compilateur me demande une constante, &#233;videmment!
mon pb c'est que c'est un param&#232;tre inconnu au d&#233;part de mon appli.
comment pourrais-je r&#233;gler le pb?
si vous avez une id&#233;e...
merci d'avance!


<HR>
si Delphi m'&#233;tait cont&#233;...

Cirec · Accepted Answer

Bon alors dans ce cas je dirais qu'il faut changer de strat&#233;gie:
Comme tu n'as en r&#233;alit&#233; que deux conditions tu pourrais l'&#233;crir comme ceci :

If FSelectedModule in [1..FModulesCount] Then
 Begin
   ...
 End
Else
If FSelectedModule in [FModulesCount + 1..MaxModulesCount] Then
 Begin
   ...
 End;

@+
Cirec

Cirec · Answer

Salut,
donne nous un peut plus d'informations sur la structure de l'instruction Case et les variables que tu y utilises ne seraient pas de trop pour se faire une id&#233;e du probl&#232;me. 

@+
Cirec

cs_mounjetado · Answer

case FSelectedModule of
          1..FModulesCount:
               begin
                  ...
               end;
          FModulesCount+1 ..MaxModulesCount:
               begin
                  ...
               end;
          end;

merci cirec ;)


<HR>
si Delphi m'&#233;tait cont&#233;...

cs_mounjetado · Answer

ok merci...
j'avais d&#233;j&#224; fait &#231;a; mais je voulais tenter de me d&#233;barasser des 'if' ;)
&#224; plus et si tu as une id&#233;e pour le post que j'ai laiss&#233; sur "j'ai besoin d'aide" &#224; propos du multithreading... ;)
bye


<HR>
si Delphi m'&#233;tait cont&#233;...

cs_Delphiprog · Answer

Pour le multithreading, je t'ai r&#233;pondu par MP : 
voir Working with TMultiReadExclusiveWriteSynchronizer 

Merci de respecter une des r&#232;gles de base d'un forum comme celui-ci : un seul th&#232;me par discussion
 !


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

f0xi · Answer

correction :
utilisation de InRange plutot qu'une evaluation d'ensemble (IN), impossibilit&#233;e de faire un switch sur ce genre d'instruction.

If InRange(FSelectedModule,1,FModulesCount) Then Begin
   ...
End Else
If InRange(FSelectedModule,FModulesCount+1,MaxModulesCount) Then Begin
   ...
End;

les instructions "A IN [ens]" n'accepte que les ordinaux 8bits shortint, byte et char. 
la methode ci-dessus aurat donc une etendue plus globale avec des types entiers et r&#233;el de plus de 8bits.

<hr size="2" width="100%">

Cirec · Answer

Salut, @ F0xi tu écris Correction ce qui sous entend qu'il y a une erreur plus haut ? En suite pour ce genre d'évaluation je me demande si c'est bien utile de déclarer l'unité Math pour faire appel a une fonction qui pour finir donnera le même résultat. En suite quand on regarde la fonction de plus près, je me dis que le temps d'écrire l'appel de cette fonction tu as déjà écris 80% de son implémentation : function InRange(const AValue, AMin, AMax: Integer): Boolean; begin Result := (AValue >= AMin) and (AValue < = AMax); end; If InRange(FSelectedModule, 1, FModulesCount) Then ... If (FSelectedModule >1) and (FSelectedModule < FModulesCount) Then ... Idem mais sans l'unité Math Bon ben voilà ... a vous de voir @+ Cirec

cs_mounjetado · Answer

ok merci FOxy et Cirec pour toute votre aide 
sympa d'avoir des r&#233;ponses  et constructives avec &#231;a!!! quel bonheur 
DelphiProg excuse-moi si je m'y prends mal mais primo j'ai post&#233; un message ds le forum... pas de r&#233;ponse; et secundo bah tout le monde, en chat ici ou ailleurs, ou m&#234;me toi, me renvoie vers le mm endroit que j'avais d&#233;j&#224; visit&#233;, et qui ne m'est d'aucune utilit&#233;, vu qu'il ne prend pas la peine de d&#233;clarer au moins une fois un de ces TMREWS, histoire d'avoir un exemple... dc je ne sais pas du tout comment &#231;a marche
bon, sur ce, je fais des erreurs mais je fais pas expr&#232;s et j'essaie de m'am&#233;liorer 
dsl je suis qq peu susceptible mais &#231;a aussi j'y travaille...


<HR>
si Delphi m'&#233;tait cont&#233;...

Instruction case

8 réponses

Votre réponse

Discussions similaires