|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : AnsiIndexStr sans etre case sensitive [ Divers / Débutant(e) ] (furax13)
 Informations & options pour cette discussion
|
mercredi 9 août 2006 à 12:20:09 |
AnsiIndexStr sans etre case sensitive
furax13
|
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.
|
|
|
|
mercredi 9 août 2006 à 13:41:55 |
Re : AnsiIndexStr sans etre case sensitive
japee
|
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 
|
|
|
|
mercredi 9 août 2006 à 13:42:42 |
Re : AnsiIndexStr sans etre case sensitive
ThWilliam
|
Réponse acceptée !
Salut,
Utilise la fonction AnsiIndexText (qui compare sans tenir compte de la casse, mais attention aux accents).
A +
Thierry
|
|
|
|
mercredi 9 août 2006 à 13:45:01 |
Re : AnsiIndexStr sans etre case sensitive
|
|
mercredi 9 août 2006 à 13:47:38 |
Re : AnsiIndexStr sans etre case sensitive
|
|
mercredi 9 août 2006 à 14:04:57 |
Re : AnsiIndexStr sans etre case sensitive
ThWilliam
|
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).
|
|
|
Cette discussion est classé dans : creation, name, nocontrainte, typecontraint, nocoil
 Répondre à ce message
 Sujets en rapport avec ce message
Creation dynamique de boutons [ par gibet ]
Qd je cree un bouton dynamiquement, suis-je oblige de le declarer au prealable ?Parce qu'en fait je ne sais au depart combien je dois creer de bouton
creation de button sans le declarer [ par g0belin ]
voila j'aimerai faire quelque chose comme sa :var i:integer;beginfor i:=1 to 10 do begin Tbutton(inttostr(i)).create; end;je sais que c'est possi
Creation d'un composant ayant comme propriété un autre composant [ par guiguitt ]
Bonjour,J'ai un petit problème... Voila Je veux créer un composant dérivé de TEdit qui propose au programmeur une propriété de Type TCollection. Ainsi
creation d'instalable [ par chick ]
je veut savoire comment creer un instalable et plus précisement creer un racourcis du bureau !merci
Creation d'une image de grande taille.. [ par manu18 ]
JeremSalut a tous..J'aurai besoin de votre aide afin que vous puissiez m'expliquez comment creer une image (tel que Tbitmap) dont je pourrai specifier
Creation de table avec DAO [ par kristof708 ]
bonjourComment fait-on pour creer dynamiquement une base de donnée avec DAOsachant que ma base de donnée doit etre de format dbase(Dbase III+ ou Dbas
CREATION ADO [ par kristof708 ]
bonjour a tousj'aimerais savoir comment créer une base de donnée dynamiquement avec ADO sachant que la base de donnée doit etre au format Dbase (dbf)
creation d'un installable [ par bmadix ]
comment créer un installable avec expressshield?remarque :j'arrive a créer un mais je ne sais pas comment faire pour qu'il puisse créer le dossier de
Creation dynamique de control [ par sablor ]
Bonjour à tous, Je souhaite créer dynamiquement des TCheckBox et les faire apparaître suivant certains paramètres sur différentes TScrollBox. Donc j'e
creation de fichier video a partir de jpeg sous delphi6 [ par deschamp ]
sous delphi6 je cree de 10 a 1000 fichiers jpeg, pour une representation sous powerpoint, je veux regrouper ces fichiers jpeg sous delphi6 en une anim
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|