convertir Char A..Z,a..z vers Byte 1..26 en une instruction

ord ?

upcase ?

pointer byte sur char puis décrémenter de $40 ou $60 sur condition complexe ?


non rien de tout ça, oubliez les trucs alambiqué et peu performant.

les deux méthodes les plus rependues et utilisées prennent au moins 4 à 6 instruction (deux soustraction, une comparaison et un saut conditionnel).

voici la méthode à une seule instruction (version pascal et asm) :

Code:

---

1 2 3 4 5 6 7 8 9 10

function asm_OrdAZaz(const C: AnsiChar): byte; asm and al, $1F; end;   function OrdAZaz(const C: AnsiChar): byte; // peu etre Inline pour eviter le call! begin result := byte(C) and $1F; end;

---

ce qui donne :
A = a = 1
B = b = 2
C = c = 3

notez qu'il est injustifié d'utiliser la méthode en assembleur puisque la méthode pascal généré par le compilateur sera identique à cette dernière, de plus on pourra utiliser la directive INLINE (D2007+) qui permettra de se passer du CALL sur OrdAZaz

on peu faire pareil pour les chiffre de 0 à 9 :

Code:

---

result := byte(Chiffre) and $0F;

---

'0' = 0
'1' = 1
'2' = 2


voila et bon code.

Ord() et Byte() ça fait la même chose en D6 ... Ord() n'est pas une vraie fonction, c'est une macro* du compilateur

Et l'avantage, c'est que Ord cela fonctionne en D2009 ! alors que le transtypage en Byte, c'est juste le truc à ne plus faire !

Mais effectivement, l'astuce du 1F parce que les mecs qui ont pondus l'ASCII ont été suffisamemt malin pour écarté 'A' et 'a' de 32 n'est pas un hazard ... et ce n'est pas un hazard non plus qu'ils ont choisi de mettre 'A' et 'a' comme multiple de 32 + 1 car oh 32 = 20 h = 1F h + 1, je crois que c'est l'une des premières astuces à la con que j'ai appris au cours assembleur à l'IUT ... pour ne pas gérer la casse à l'interruption 21h fonction 6

* j'ignore si c'est le terme adéquat !

Moi aussi, j'aime bien écrire ce genre de code à la con, je vois qu'avec le passage en UniCode, j'ai juste envie de me dire qu'il vaut mieux faire une fonction robuste avant tout que le truc bidouillé pour gagner quelques micro-cycles ... pourtant c'est tellement plus drôle !