Discussion :

[XeGregory]

Bonjour,

Je rencontre un petit problème avec la sortie de ma fonction. Je ne parviens pas à retrouver la valeur Unicode.

Je rentre un caractère '𝑎' donc sa valeur Unicode = 1D44E, ma fonction me renvoi la valeur 0D835

Code :

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

1
2
3
4
5
6
7
8
9
{ CharToHex }
function CharToHex(Const Unicode: Char): String;
begin
  Result := IntToHex(Integer(Unicode), 5);
end;
 
// U+1D44E = 𝑎
ShowMessage(CharToHex('𝑎'));
//ShowMessege = 0D835

J'ai constaté que peu importe le type de caractères que je saisis dans cette catégorie, ma fonction renvoie toujours la même valeur (0D835).


Je rentre un caractère 'A' donc sa valeur Unicode = 0041, ma fonction me renvoi bien la valeur 0041
La fonction na prend pas en charge les valeurs plus grande que FFFF

Serait-il le type Integer qui me fausserait la conversion ?

Merci

[XeGregory]

J'ai bien un problème de conversion

Si je prends la valeur en Hexa : 1D44E convertie en décimale = 119886

Code :

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

1
2
ShowMessage(IntToStr(Ord('𝑎')));
// ShowMessage = 55349

55349 --> Hexa D835 n’est pas un caractère Unicode valide.

[Andnotor]

Un caractère unicode fait 16 bits, pas un de moins pas un de plus : soit $FFFF max.

Pour atteindre les caractères suivants dans le tableau il est fait appel à des surrogate pairs ; un codage du caractère réel sur plusieurs "caractères" unicode.

Ces paires se calculent. Ce que tu récupères toi en est juste une partie : le high surrogate ($D800 à $DBFF).

En bref ton caractère est en fait une chaîne qu'il faut décortiquer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses System.Character;
 
function CharToHex(Const Unicode: string): String;
begin
  const ca = Unicode.ToCharArray;
 
  // Surrogate pair ?..
  if (Length(ca) = 2) and ca[0].IsHighSurrogate and ca[1].IsLowSurrogate then
    Result := IntToHex(((ca[0].ToUCS4Char -$D800) *$400) +(ca[1].ToUCS4Char -$DC00) +$10000, 5)
 
  // ...non
  else if Length(ca) = 1 then
    Result := IntToHex(ca[0].ToUCS4Char, 5)
 
  else raise Exception.Create('Caractère invalide');
end;

[XeGregory]

Merci Andnotor,

Donc si j'ai bien compris

Si la premier valeur et comprise entre D800 et DBFF (IsHighSurrogate) renvoie True et si la deuxième valeur et comprise entre DC00 et DFFF (IsLowSurrogate) renvoie True, donc nous sommes en (Surrogate Pairs).

Code :

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

if (Length(ca) = 2) and ca[0].IsHighSurrogate and ca[1].IsLowSurrogate then

Code :

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

1
2
else if Length(ca) = 1 then
    Result := IntToHex(ca[0].ToUCS4Char, 5)

else Unicode 0000 - FFFF