Détection majuscules et miniscules

Bonjour,

Je vous pris de bien vouloir me donner l'astuce pour detecté si la lettre qui es dans un Tedit ou bien d'autre (Une chaine de caractere) elle es en majuscule ou bien en miniscule.

Par Exemple:

j'ai un mot "chaPlast" et "CHAPLAST" et "chaplast"

Comment je peux connaitre que le mot es ecris en majuscule ou bien en miniscule ou bien un une lettre dans le mot quelle es en majuscule


Merci de me repondre....

Salut,

Tu peux utiliser simplement leur code ASCII, avec

Code:

---

ord(Ta lettre à tester)

---

puis tester si elle appartient à la plage ASCII d'une majuscule ou d'une minuscule.

@+.

Svp explique le phénomene de ASCII..

Ok,

une petite recherche sur le net devraient t'aider...En fait chacun des caractères utilisés sur ton ordi est codé selon la table ASCII.
Par exemple, voir à:
http://www.table-ascii.com/
....

Ainsi tu peux remarqué que les caractères miniscules et majuscules sont codés différtemment. (97 à 122 pour les min et 65 à 90 pour les Maj).

Donc, en résumé, tu parcours ta chaîne, tu déduit le code ASCII avec ord et tu regarde si elle appartient à une des plages pour savoir si c'est une majuscule ou une minuscule.

A+.

Tu peux aussi utiliser la commande IN, qui utilise de toute façon implicitement le principe du code ASCII dans cette exemple:

Code:

---

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

var chaine:shortstring; i:integer; begin chaine:= 'hello'; for i := 0 to length (chaine)-1 do begin if chaine[i] in ['a'..'z'] then //minuscule; else if chaine[i] in ['A'..'Z'] then //MAJUSCULES; end; end;   end;

---

A+.

Est-ce que

Code:

---

if MaChaine[x] = upcase(MaChaine[x]) then // c'est 1 majuscule

---

ne ferait pas l'affaire ?

Merci beaucoup pour votre aide et surtout je remercie "PadawanDuDelphi" pour leur exemple qui ma vraiment aidée....