[Free Pascal] Convertir un code ASCII en entier

bonjour,

je recherche comment convertir un code ASCII dans une chaine en entier...

exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

program testval; var a,c :string; i,r,code :integer; begin a:='Bonjour'; c:=copy(a,1,1); val(c,r,code); Writeln('a= ',a,' c= ',c,' r= ', r,' cr= ',code); readln; end.

---

je pensais que val allait me le faire mais ça et que j'allais récuperer 66 dans R mais je n'ai que zero et 1 en cr

merci si vous avez une autre solution

Euhhhhhhhhhhhh...


Il faut utiliser chr() et ord(). Merci de consulter l'aide de ton compilateur ;)

Val et str permet de convertir une chaine en entier et inversement.

désolé,

oui c'est bien ce que je voulais faire convertir une chaine en un entier avec la fonction val mais comme mon compilo freepascal est un peu en anglais et les exemples pas trop explicites.. (pour moi..)


bon je vais me débrouiller

tant que j'y suis mon aide de freepascal plante assez svt et j'ai plein de couleur alors je suis opbligé de quitter le compilo et de le relancer .. qq1 connait ce pb ?

Non ce n'est pas ce que tu veux faire... Toi tu voudrais récupérer le code ASCII d'un caractère dans une chaine. Et pour celà, c'est ord().

Val permet de convertir une chaine en entier : la chaine s '124' devient l'entier 124. C'est pas du tout la même chose.

Bonjour,

oui effectivement VAL permet de transformer du numerique d'un chaine dans un integer. (autant pour moi...)

mon pb perso était le suivant au départ
dans un chaine j'avais par exemple '10 etc''
j'ai fait un ptit pb qui a transformé cette chaine en '*etc' (une sorte de compression..)

Code:

---

1 2 3 4 5 6 7

z:=copy(a,1,2); val(z,k,code); k:=ord(k); k:=k+32; c:=chr(k); insert(c,a,1); delete(a,2,3);

---

maintenant je cherche à retouver mon '10' en retrouvant le 42 du code ascii * auquel j'enleve mes 32 pour avoir 10 de départ (décompression..)

alors je cherche la fonction... (en Qbasic il y avait un fonction ASC)

Code:

---

PRINT ASC("Q") 'Sortie: 81

---

Il faut utiliser ord et str :

Code:

---

1 2 3 4 5 6

var ch: Integer; var s: String;   ch := ord(s[1]); { ch = 42 } str(ch - 32, s); { s = '10' }

---

Citation:

---

Envoyé par JoseF

alors je cherche la fonction... (en Qbasic il y avait un fonction ASC)

Code:

---

PRINT ASC("Q") 'Sortie: 81

---

---

L'équivalent de ce code est :

Code:

---

Write(Ord('Q'));

---

@++

merci !!

je crois avoir trouvé mon erreur... ça ne marche pas avec une extraction de chaine..

Code:

---

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

program testval; var a,b:string; c,d:char; //i:integer; begin a:='Bonjour'; b:=copy(a,1,1); c:='Q'; d:='R';   Writeln('equivalent Basic de ASC(''Q'') Ord(''Q'') ',Ord('Q'));   Writeln(Ord(c)); //ça marche si Char mais pas string :( Writeln('ce qu il y a dans B ',b); //Writeln(Ord(b)); //marche pas : Type mismatch readln; end.

---

donc maintenant la question que je me pose est de savoir comment convertir une chaine de 1 caracter en char ?

comme je viens du basic cette notion de char je ne connais pas trop..

Une chaine est un tableau de caractères... Pour avoir le caractère, il suffit de faire :

Code:

---

1 2 3 4 5 6 7

var c: Char; var s: String; begin s := 'salut';   ch := s[1]; // ch = 's';

---

je crois avoir compris !

Code:

---

Writeln(Ord(b[1])); // ok !

---

merci !

Ou plus simplement a[1]... Copy ne sert absolument à rien :roll:

bonjour j'essai de comprendre comment marche Val ( dans le livre que j'utilise je ne trouve pas) et l'aide du compilateur est pas super clair. il faut ecrire val(S;var u;var Code:integer)

mais je ne comprends pas vrément a quoi correspond S , var u et var code.

S, u et v sont des variables passées en paramètre de la fonction val. Val permet de convertir une chaîne de caractères (string) en entier (integer)

:faq:
:fleche: http://pascal.developpez.com/faq/