Obtenir le code ascii d'une chaine de caractères [Résolu]

codial 270 Messages postés mercredi 14 avril 2004Date d'inscription 5 mai 2015 Dernière intervention - 7 sept. 2005 à 12:48 - Dernière réponse : codial 270 Messages postés mercredi 14 avril 2004Date d'inscription 5 mai 2015 Dernière intervention
- 7 sept. 2005 à 14:21
Bonjour,

Je cherche à obtenir le code ascci des caractères d'une chaine.

Je fais entre autres:

var
pt: string[1]
Q:LongInt

For I := 1 To Length(chaine) do
pt := Copy(chaine,I,1);
Q := ord(pt); ici j'ai un message "Types incompatibles mais si je mets
Q := ord('c') ça passe ??? Je ne comprends pas !!

Ou peut bien être mon erreur pt et une variable de type string ???

Case Q of
Ord('A').. Ord('Z'):begin //'***Majuscules

etc....

Ord('a') To Asc('z') '***Minuscules

etc...


D'avance merci

Cordialement

Codial
Afficher la suite 

2 réponses

Répondre au sujet
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 7 sept. 2005 à 12:56
+3
Utile
salut ,
pt doit être de type ordinal
var pt:char;

For I := 1 To Length(chaine) do
pt :=chaine[I];
Q := ord(pt);

bonne prog;
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jlen100
codial 270 Messages postés mercredi 14 avril 2004Date d'inscription 5 mai 2015 Dernière intervention - 7 sept. 2005 à 14:21
0
Utile
Merci pour ta rapide réponse

Cordialement

Codial
Commenter la réponse de codial

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.