convertir 10 en k, 11 en l etc..

**Art19** · 27/04/2007, 17h15

Bonjour,

je voudrais savoir comment convertir le nombre '10' en la lettre 'k', '11' en 'l' etc... merci,

**Art19** · 27/04/2007, 17h23

c'est le genre de profondes reflexions qui aboutissent!

**e-ric** · 27/04/2007, 17h24

Salut

un peu de réflexion donne un truc dans le genre :

Code :

1
2
3
4
5
6
 
function Rang(c: char): Integer;
begin
  if c > 'k' then
   Result := Ord(c) - Ord('k') + 10;
end;

C'est tout simple

cdlt

**Art19** · 27/04/2007, 17h29

la tu convertis un char en Int, mais pour faire l'inverse? Apparemment Ord ne prend pas d'Integer donc...

**Fabrice ROUXEL 1** · 27/04/2007, 17h40

Chr()

Code :

1
2
3
4
function GetChar(Value: byte): char;
begin
   Result := chr(Ord('k') -10 + Value);
end;

**e-ric** · 27/04/2007, 17h54

Eh oui !

Good WE everybody

**Gilbert Geyer** · 27/04/2007, 18h01

Sachant que chr(107) donne 'k', chr(107-10+nombre) donnera également 'k' pour nombre=10 ... et chr(107-10+nombre) donnera 'l' pour nombre=11 etc...

**Art19** · 27/04/2007, 18h18

ok merci

Delphi