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

codial
Messages postés
270
Date d'inscription
mercredi 14 avril 2004
Dernière intervention
5 mai 2015
- 7 sept. 2005 à 12:48 - Dernière réponse : codial
Messages postés
270
Date d'inscription
mercredi 14 avril 2004
Dernière intervention
5 mai 2015
- 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 

Votre réponse

2 réponses

Meilleure réponse
jlen100
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
- 7 sept. 2005 à 12:56
3
Merci
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;

Merci jlen100 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

Commenter la réponse de jlen100
codial
Messages postés
270
Date d'inscription
mercredi 14 avril 2004
Dernière intervention
5 mai 2015
- 7 sept. 2005 à 14:21
0
Merci
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.