[D7] Convertir un integer en char

Salut,

comment puis je faire pour convertir un integer en char.

Car si je fais par exemple Char(4), cela me renvoie le caratère #4 et non pas le code ascii associé à 4.

Et moi j'aimerai juste que Char(4) soit égale à '4'.

Merci pour votre aide.

Anthony

Il faut ajouter $30 à ton Int.

Exemple :

Code:

---

1 2 3 4

function IntToChar(iNombre : Integer) : char; begin IntToChar := Char($30 + iNombre); end;

---

Merci c'est parfait.

Une autre petite question.

Comment puis je faire pour trouver le nombre de chiffre qu'il y a dans un nombre.

ex: 296 contient 3 chiffres

encore merci à toi

salut ;
function length(chaine) : integer ..

bye .

Un truc du genre :

Code:

---

1 2 3 4

var NomBre,NbreDeDecimales:integer; begin NbreDeDecimales:=trunc(Log(Nombre)); end;

---

...devrais te donner le nombre de décimales dans un entire, Log étant le logarithme décimale (base 10).

Tu peux essayer avec la calculatris Windows pour te faire une idée...
Bon dev :wink:

si je puis me permettre, une fonction déja présente dans Delphi le fait très bien et rapidement: chr()

Citation:

---

Envoyé par raoulmania

Salut,

comment puis je faire pour convertir un integer en char.

Car si je fais par exemple Char(4), cela me renvoie le caratère #4 et non pas le code ascii associé à 4.

Et moi j'aimerai juste que Char(4) soit égale à '4'.

Merci pour votre aide.

Anthony

---

Salut

Teste ceci

Code:

---

1 2 3 4 5 6 7 8

function ByteToDigit(b: Byte) : Char; begin if B in [0..9] then Result := Char(b-Ord('0')) else raise Exception.Create('Planté !'); End;

---

Adapte selon tes besoins

cdlt

e-ric

Citation:

---

Envoyé par waskol

Un truc du genre :

Code:

---

1 2 3 4

var NomBre,NbreDeDecimales:integer; begin NbreDeDecimales:=trunc(Log(Nombre)); end;

---

...devrais te donner le nombre de décimales dans un entire, Log étant le logarithme décimale (base 10).

Tu peux essayer avec la calculatris Windows pour te faire une idée...
Bon dev :wink:

---

Je dirais plutôt :

Code:

---

1 2 3 4 5 6 7

var Nombre, NbrDeDecimales: Integer; begin NbrDeDecimales := Ceil(Log(Nombre)); //ou NbrDeDecimales := Trunc(Log(Nombre)) + 1; end;

---

:)

ou alors

Code:

---

NbreDecimales := Length( GetLongHint( StringReplace( FloatToStr( Nombre ), DecimalSeparator, '|', [ rfReplaceAll ] ) ) )

---

plus long à écrire, mais je suis pas sur que ce soit plus long à executer...

Pour le nombre entier, mettre GetShortHint à la place de GetLongHint

salut tout le monde je suis un nouveau membre et je voudrais reccuperer le code de la fonction inttochar :oops:.

mon compilateur me signale qu'il ne recconnait pas cette fonction et si c'est une fonction C, elle est dans quelle librairie?

j'ai une autre petite question :

cette fonction es-t-elle appliquable a un non signé?

merci d'avance et a charge de revanche.

Bienvenue sur DVP,

Effectivement, tu ne peux pas appeler cette fonction car elle n'existe pas.
En revanche pour transformer un entier en caractère tu peux utiliser la fonction chr().
Par exemple chr(65) te renverra la lettre 'A', ou encore #65 qui aura le même résultat.

Par ailleurs, il existe également la fonction IntToStr qui elle te renverra la valeur de ton entier sous forme d'une chaîne de caractère. Par exemple
si X = 65, alors intToStr(A) -> '65'

merci de ta reponse, mais mon conpilateur C ne recconnait toujours pas cette fonction, j'ai fait une recherche et il fallait tout bétement penser a apliquer "sprintf" qui fait une ecriture formaté dans un buffeur ....:oops:

mais comme on dis "felix culpa"

merci... merci et encore merci!

mais une dérniere petite question!! la fonction "inttostr" est définit dans quelle librairie du C?