AnsiIndexStr sans etre case sensitiveRésolu

Question

bonjour,
j'utilise la méthode AnsiIndexStr  pour créer des objets typés comme l'indique l'exemple ci-desous :

CONSTRUCTOR TCMContrainte.creation(noContrainte, typeContraint: integer; name: STRING; noCoil, priority: integer);
BEGIN
CASE AnsiIndexStr(name, ['Contrainte_Heating_Speed_1',
      'Contrainte_Gaz_Flow_1',
      'Contrainte_Gaz_Flow_2',
      'Contrainte_Gaz_Flow_3',
      'Contrainte_Carbon_Deposition_1',
      'Contrainte_Carbon_Deposition_2',
      'Contrainte_Carbon_Deposition_3']) OF
    0: self := TCMContrainteHeatingSpeed1.creation(noContrainte, name, noCoil, typeContraint, priorite, 700, 40);
    1: self := TCMContrainteGazFlow1.creation(noContrainte, name, noCoil, typeContraint, priorite, 650, 10.5, 650);
    2: self := TCMContrainteGazFlow2.creation(noContrainte, name, noCoil, typeContraint, priorite, 650, 10.5, 650);
    3: self := TCMContrainteGazFlow3.creation(noContrainte, name, noCoil, typeContraint, priorite, 650.0, 17);
    4: self := TCMContrainteCarbonDeposition1.creation(noContrainte, name, noCoil, typeContraint, priorite, 700, 50, 650);
    5: self := TCMContrainteCarbonDeposition2.creation(noContrainte, name, noCoil, typeContraint, priorite, 700, 50, 650);
    6: self := TCMContrainteCarbonDeposition3.creation(noContrainte, name, noCoil, typeContraint, priorite, 700, 50, 650);
 END;
END;

Malheureusement, la méthode AnsiIndexStr gère le case sensitive

Comment faire pour s'en affranchir?

merci beaucoup.

ThWilliam · Accepted Answer

Salut,


Utilise la fonction AnsiIndexText (qui compare sans tenir compte de la casse, mais attention aux accents). 


A +
Thierry

japee · Answer

Salut furax13, Tiens, je connaissais pas AnsiIndexStr, m'a l'air bien pratique... dommage que j'aie que D4 ! Quoi qu'il en soit, pourquoi ne pas utiliser UpperCase, tout simplement ? Comme ceci : CONSTRUCTOR TCMContrainte.creation(noContrainte, typeContraint: integer; name: STRING; noCoil, priority: integer); BEGIN CASE AnsiIndexStr(UpperCase(name), [UpperCase('Contrainte_Heating_Speed_1'), UpperCase('Contrainte_Gaz_Flow_1'), UpperCase('Contrainte_Gaz_Flow_2'), UpperCase('Contrainte_Gaz_Flow_3'), UpperCase('Contrainte_Carbon_Deposition_1'), UpperCase('Contrainte_Carbon_Deposition_2'), UpperCase('Contrainte_Carbon_Deposition_3')]) OF 0: self := TCMContrainteHeatingSpeed1.creation(noContrainte, name, noCoil, typeContraint, priorite, 700, 40); 1: self := TCMContrainteGazFlow1.creation(noContrainte, name, noCoil, typeContraint, priorite, 650, 10.5, 650); 2: self := TCMContrainteGazFlow2.creation(noContrainte, name, noCoil, typeContraint, priorite, 650, 10.5, 650); 3: self := TCMContrainteGazFlow3.creation(noContrainte, name, noCoil, typeContraint, priorite, 650.0, 17); 4: self := TCMContrainteCarbonDeposition1.creation(noContrainte, name, noCoil, typeContraint, priorite, 700, 50, 650); 5: self := TCMContrainteCarbonDeposition2.creation(noContrainte, name, noCoil, typeContraint, priorite, 700, 50, 650); 6: self := TCMContrainteCarbonDeposition3.creation(noContrainte, name, noCoil, typeContraint, priorite, 700, 50, 650); END; END; Bonne prog' signé ~~furax~~ japee, lol

japee · Answer

Ou AnsiUpperCase, mais ça ne me paraissait pas utile dans le contexte...

japee · Answer

Ah, salut Thierry... on s'est croisés, lol.


Encore une que je ne connaissais pas !

ThWilliam · Answer

Salut japee,

on s'est même croisé 2 x. (lol)
ceci dit, la fonction AnsiIndexText ne fait probablement rien d'autre que de comparer en majuscules (uppercase).

AnsiIndexStr sans etre case sensitive

5 réponses

Votre réponse

Discussions similaires