Discussion :

[Tcheby]

Bonjour,

Je recherche une procédure qui me converti un entier en caractère :
1 -> A
2 -> B
...
27 -> AA
28 -> AB

Pour le moment j'utilise la fonction Chr() en faisant un incrément de 65 mais elle est limitée.
Avez vous une autre solution ?

[Hauwke]

Bonjour,
En cherchant dans la F.A.Q., peut être...
Cordialement,
Hauwke

[OutOfRange]

Bonjour

j'utilise la fonction Chr() en faisant un incrément de 65

Pourrais-tu préciser et montrer ton code
Je ne comprends pas bien comment in incrément de 65 peut donner le résultat indiqué
Chr(65)='A', mais je ne vois pas bien le rapport :
???

[e-ric]

Salut

Assez parloté !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function ToAA(Nombre: integer) : string;
const
  ValBase = 26;
var
  Q, R: integer;
begin
  repeat
    Q := (Nombre-1) div ValBase;
    R := (Nombre-1) mod ValBase;
    Result := Chr(Ord('A')+R) + Result;
    Nombre := Q;
  until Q = 0;
End;

devrait te tirer d'affaire, il n'y a pas de possibilité directement dans Delphi à ma connaissance car c'est un calcul trop exotique.

Rem : Il s'agit juste d'un changement de base de numération.

cdlt

e-ric

[Tcheby]

Impecable, merci beaucoup

Je me permet juste de conseiller d'initialiser la valeur de Result à '' au début de la fonction.

Pour le Chr(65) voila mon raisonnement :
je veux
1 -> A <=> en ASCII 64 + 1
2 -> B <=> en ASCII 64 + 2
mais je bloquais à Z et ca me faisait '['

[e-ric]

Salut

C'est vrai, j'avais oublié mais cela ne gênait pas.

cdlt

e-ric

[Tcheby]

Si ca doit gêner car en appelant deux fois de suite cette fonction, la valeur de Result n'était pas bonne :
toAA(1) = A;
toAA(2) = BA;