Discussion :

[Jlmat]

Bonjour à tous,

Je suis un peu perdu pour afficher ou écrire des caractères unicodes simplement.
Par exemple, les caractères de la série U+2680 affiche ici des dés:
⚀ ⚁ ⚂ ⚃ ⚄ ⚅
Si je copie le caractère directement dans une chaine, mais comment travailler avec les codes U+2680 par exemple.

Quelqu'un sait-il faire ? La doc est obscure sur le sujet, pas vu d'exemple de code...

Merci

[bb84000]

Bonjour,

Voici comment faire un "sept":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
  var
  S1: UCS4String;
  S: string;
begin
  SetLength(S1, 3);
  S1[0]:= UCS4Char($2681);
S1[1]:= UCS4Char($2684);  
  S1[high(S1)]:= UCS4Char(0);   //Zéro dans le dernier élément de l'array
  S:= UCS4StringToUnicodeString(S1);
  Label1.Caption:= S;
end;

Ajouter LazUTF8 dans la clause uses.
Le type UCS4String est un array terminé par un zéro. Il faut donc le dimensionner convenablement (nombre de caractères plus le zéro) et l'initialiser à zéro ou ajouter le zéro dans le dernier élément de l'array.

bb84000

[Jlmat]

merci bien bb84000

Je me doutais un peu de l'utilisation de LazUTF8, mais je pensais qu'il y avait peut être une nouvelle unité spéciale unicode!

impéccable

[bb84000]

Bonjour,

merci bien bb84000

Je me doutais un peu de l'utilisation de LazUTF8, mais je pensais qu'il y avait peut être une nouvelle unité spéciale unicode!

impéccable

En fait, l'unité nécessaire est StrUtils, pas lazUTF8, mais comme cette dernière appelle StrUtils, ça marche !

bb84000

[Andnotor]

Label1.Caption:= #$2681#$2684 ne fonctionne pas sous Lazarus ?

[Roland Chastain]

Label1.Caption:= #$2681#$2684 ne fonctionne pas sous Lazarus ?

Non, chez moi (Lazarus 2.2.4, Linux) ça ne marche pas.

L'exemple de bb84000 fonctionne, avec un avertissement.

unit1.pas(44,5) Warning: Implicit string type conversion with potential data loss from "UnicodeString" to "AnsiString"

[bb84000]

Bonjour,

L'exemple de bb84000 fonctionne, avec un avertissement :

unit1.pas(44,5) Warning: Implicit string type conversion with potential data loss from "UnicodeString" to "AnsiString"

Le compilateur a raison. Dans le cas présent, il a correctement assuré la conversion, mais sans garantie d'un bon résultat pour d'autres valeurs ou d'autres configurations.
J'aurais du écrire :

Code :

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

1
2
// S:= UCS4StringToUnicodeString(S1);
S:= UTF8Encode(UCS4StringToUnicodeString(S1));

avant de l'assigner au label.

bb84000

[bb84000]

Bonjour,

Label1.Caption:= #$2681#$2684 ne fonctionne pas sous Lazarus ?

Ça donne deux magnifiques points d'interrogation.

bb84000

[Andnotor]

OK ! UCS4StringToUnicodeString est manifestement différente de Delphi (il y aurait zéro conversion dans le cas présent). Peut-être une directive forçant l'UTF-16, ce qui pourrait peut-être expliquer l'avertissement que Roland reçoit au retour.

Le sujet est résolu et je ne voudrais pas l'alourdir inutilement mais est-ce que ceci fonctionne ?

Code :

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

1
2
3
{$mode delphi}
{$modeswitch unicodestrings}
Label1.Caption:= #$2681#$2684;

[Jlmat]

Merci bb84000,

Ok, tu reprends le même mécanisme, je trouve que c'est un peu lourd pour un seul caractère!

J'avais espérer trouver une fonction existente... Mais c'est pas grave, en attendant mieux ou la prochaîne MAJ de Lazarus...

[bb84000]

Bonjour,

J'avais espérer trouver une fonction existante...

Andnotor n'en était pas loin, et on s'est bien compliqué le vie

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  S2: UnicodeString;
begin
 // S2:= #$2681+#$2684;     // Marche pas, c'est de l'utf16
 S2:= #$002681+#$002684;    // On force l'utf32 avec les zéros devant
  Label1.Caption:=S2 ;      // Et... sept !
end;

bb84000

[Andnotor]

S2:= #$2681+#$2684; // Marche pas, c'est de l'utf16

Les conversions implicites semblent assez étranges en Free Pascal parce que unicode est de l'utf-16

Et ceci ?

Code :

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

S2:= WideChar($2681) + WideChar($2684); // ou UnicodeChar()

[Jlmat]

...parce que unicode est de l'utf-16

Oui en effet, les définitions sont un peu partout! Je récapitule:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 var
  S2: UnicodeString;
 begin
  ...
  S2:= #$2681+#$2684;            //  => Marche pas (c'est de l'utf16?!)
  S2:= #$002681+#$002684;    //  => OK, On force l'utf32 avec les zéros devant
  S2:= WideChar($2681) + WideChar($2684); // => OK, on peut faire un string!
  S2 := UnicodeChar($2681 +$2684);    //  => Marche pas car fonction prtévue pour 1 seul caractère
...

J'essaye d'écrire une fonction pour n'importe quelle UnicodeString, mais je n'arrive pas à mettre le caractère Nul à la fin:

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
17
18
 
function StrUnicode1(aTUC : array of  UnicodeChar) : UnicodeString;
 var ii : integer;
      S : UnicodeString;
begin
  SetLength(S,High(aTUC));
  for ii := Low(aTUC) to High(aTUC) do
  begin
    S[ii]:= WideChar(aTUC[ii]);
  end;
  S[high(S)]:= WideChar(0); // ou autre, UCS4Char(0) mais ça plante à l'exécution car il ne met pas de catactère de fin;  
  result := S;
end; 
 
begin
    S2 := StrUnicode1([WideChar($2681),WideChar($2685),WideChar($2686),WideChar($2687),WideChar($2688)]);
    LabelCaption := S2;
end;

[Andnotor]

Une UnicodeString est une WideString à la sauce Delphi. Le zéro terminal est implicite et n'a pas besoin d'être ajouté manuellement.

Ton tableau n'est pas assez grand : SetLength(S, Length(aTUC)).
Dans le cas de tableaux ouverts (paramètres) ou dynamiques (déclaration de variables), high() = Length() -1 et Low() vaut toujours 0.

[Roland Chastain]

Et ceci ?

Code :

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

1
2
3
4
5
  S2: UnicodeString;
begin
  S2 := #$002681 + #$002684; // OK
  S2 := WideChar($2681) + WideChar($2684); // OK
  S2 := UnicodeChar($2681) + UnicodeChar($2684); // OK

@bb84000

Vous paraissez bien maîtriser ce sujet auquel beaucoup (moi par exemple) ne comprennent pas grand chose. Vous ne voudriez pas faire un petit tutoriel ? Les membres de l'équipe se feraient un plaisir de vous accompagner. (Si cette idée est susceptible de vous intéresser, contacter Alcatîz ou moi-même en MP.)

[bb84000]

Bonsoir !

En fait je ne maitrise rien... Je viens de reprendre tous mes tests et je m'aperçois que j'ai écrit des bêtises...

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  S2: UnicodeString;
begin
  S2:= #$2681+#$2684;
  //S2:= #$002681+#$002684;    
  //S2:= WideChar($2681) + WideChar($2684);
  Label1.Caption:=UTF8Encode(S2) ;      // Et... sept !
end;

Les trois lignes affichent correctement les faces des dés, contrairement à ce que j'ai écrit plus haut.

Par contre, même en utilisant les caractères UCS4Char, la conversion en UnicodeString ne permet pas d'afficher les caractères au dessus de U+FFFF. Seuls les 16 premiers bits sont pris en compte lors de la conversion. Par exemple U+11600 est tronqué en U+1600.

bb84000