Discussion :

[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

[Okaryn]

Il faut ajouter $30 à ton Int.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[raoulmania]

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

[petitcoucou31]

salut ;
function length(chaine) : integer ..

bye .

[LadyWasky]

Un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jenesuispasunrobot]

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

[e-ric]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[blinkseb]

Un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je dirais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
var
  Nombre, NbrDeDecimales: Integer;
begin
  NbrDeDecimales := Ceil(Log(Nombre));
  //ou NbrDeDecimales := Trunc(Log(Nombre)) + 1;
end;

[TicTacToe]

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LAHAMLA]

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

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.