Voici la procédure pour faire la somme des codes ascii d'une chaine :
Var Somme,Index:Integer;
Begin
Somme:=0;
For Index:=1 To Length(mavar1) Do
Somme:=Somme+Integer(mavar1[Index]);
End;
Par contre le résultat n'est pas convertible en UN caractère ASCII car il sera bien supérieur à 255. Précise donc comment tu veut stocker le résultat dans mavar2 si tu veux la suite de la réponse...
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
salut !!
jutilise delphi 5 !!
et je voudrait savoir comment on peut faire un boucle qui traite sur la valeur ascii
d'une phrase
exemple:
je déclare une variable de type string nommé "mavar1"
et qui contient "abcdrefghtuiio"
et une autre de type integer nommé "mavar2"
voila !! comment faire une boucle met dans "mavar2" le nb de lettre de "mavar1", qui prend les lettre une par une et qui additionne les valeur ascii
entre elle et qui enfin place le résultat dans "mavar2" ????
merci !!!!
a++++++++