Caractères unicode dans TListBox ?

Bonjour à tous,

Je me suis dit que je pouvais mettre un chr(xxx) dans une ligne d'une ListBox pour faire joli (8-)) et lors de la compil, et bien pas de chr(xxx) joli mais un truc moche.
en fait, j'ai mis une ligne dans ma listBox avec chr(16) ou chr(17) pour une flêche ou même chr(176) mais à l'utilisation j'ai une espèce de case vide moche pour tous ces caractères.

Pourtant, j'ai lu un article qui dit que depuis 2009 Delphi est à l'Unicode et donc inutile de s'embarrasser avec des composants tiers ...

Aurais je loupé quelque chose ? et quoi ?
(L'idée est de rester avec les composants de la VCL sans composants tiers)

Merci de votre aide

tu as sans doute raté le fait que 16, 17 et 176 ne sont pas des caractères unicodes :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

ListBox1.Items.Add(#16); ListBox1.Items.Add(#17); ListBox1.Items.Add(#176);   ListBox1.Items.Add('►'); ListBox1.Items.Add('◄'); ListBox1.Items.Add('░');   ListBox1.Items.Add(Ord(ListBox1.Items[3][1]).ToString); ListBox1.Items.Add(Ord(ListBox1.Items[4][1]).ToString); ListBox1.Items.Add(Ord(ListBox1.Items[5][1]).ToString);   ListBox1.Items.Add(#9658); ListBox1.Items.Add(#9668); ListBox1.Items.Add(#9617);

---

Note que tu peux utiliser Alt+16 pour afficher ► directement dans ton code source (qui est compatible Unicode), et que ce sera bien le caractère 9658, à la sauvegarde il te proposera de passer en UTF8 et tu pourras constater que ton fichier contiendra

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

ListBox1.Items.Add(#16); ListBox1.Items.Add(#17); ListBox1.Items.Add(#176);   ListBox1.Items.Add('â–º'); // version UTF8 de 9658 ListBox1.Items.Add('â—„'); ListBox1.Items.Add('â–‘');   ListBox1.Items.Add(Ord(ListBox1.Items[3][1]).ToString); ListBox1.Items.Add(Ord(ListBox1.Items[4][1]).ToString); ListBox1.Items.Add(Ord(ListBox1.Items[5][1]).ToString);   ListBox1.Items.Add(#9658); ListBox1.Items.Add(#9668); ListBox1.Items.Add(#9617);

---

Oui, depuis D2009 c'est de l'Unicode

La première question qui me vient à l'esprit en lisant la demande c'est : Quand est-ce que ce chr est utilisé ? Certainement au runtime.

Toutefois voilà déjà une astuce au Design Time, utiliser la table des caractères de windows, sélectionner le caractère voulu (attention à la fonte utilisée pour la listbox, par défaut Tahoma je crois) et simplement copier le caractère pour l'insérer dans le texte.

Pièce jointe 614577
ici la première ligne est écrite avec l'astuce DesignTime
les deux autres au runtime

Code:

---

1 2 3 4 5

procedure TForm23.Button1Click(Sender: TObject); begin ListBox1.items.Add('une flèche par # '#8594); ListBox1.items.Add('une flèche par Char(dec) '+Char(8594)); end;

---

le seul problème c'est que le programme de la table des caratères affiche le code Unicode U+2192 (donc de l'hexadecimal) et que pour char comme pour # il s'agit de la valeur décimale
mais cela peut s'écrire aussi

Code:

---

ListBox1.items.Add('une flèche par char(hexa) '+Char($2192));

---

cela étant une restriction, je n epense pas que l'on puisse combiner deux fontes (par exemple pour ajouter des webdings)

tu peux aussi écrire #$2192

Si tu souhaites avoir les constantes caractères en clair '►' '◄' et '░' dans ton programme sans devoir passer tout le fichier source en UTF8 ni devoir utilise les codes UNICODE, tu peux isoler cela dans une unité

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

unit SpecialChars;   interface   const SC_FLECHE_DROITE = '►'; SC_FLECHE_GAUCHE ='◄'; SC_TRUC_POINTILLE = '░';   implementation   end;

---

Code:

---

1 2 3

ListBox1.Items.Add('une flèche droite : ' + SC_FLECHE_DROITE ); ListBox1.Items.Add('une flèche gauche : ' + SC_FLECHE_GAUCHE ); ListBox1.Items.Add('un truc pointillé : ' + SC_TRUC_POINTILLE );

---

Récemment, j'ai du géré une constante de caractère de ponctuation chinois
Ayant isolé tout le code concerné dans une unité dédié, celle-ci est la seule en UTF8 avec BOM du projet, cela ne pose pas problème
En général, je préfère vraiment isolé cela, c'est assez rare dans nos contrées d'avoir des caractères hors Windows1252 et que juste l'unité qui contient quelques caractères spéciaux soit en UTF8, cela a un impact par exemple sur GIT dans l'historique.

Code:

---

1 2 3 4 5 6 7 8 9 10

function CheckFirstAndLastChar(var ACellRef, ACell: TLangString): Boolean; type TLastCharType = (lcSpace, lcPoint, lcQuestion, lcColon, lcAsterisk); const ALPHABET_BEGIN_CHARS: array[lcSpace..lcSpace] of Char = (' '); ALPHABET_BEGIN_CHARS_COMPATIBLE: array[lcSpace..lcSpace] of string = ('*'); // amusant cela affiche une étoile sur le forum alors qu'en delphi c'est un espace insécable. ALPHABET_BEGIN_CHARS_LEVEL: array[lcSpace..lcSpace] of TAnalysisLevel = (alWarning); ALPHABET_LAST_CHARS: array[TLastCharType] of Char = (' ', '.', '?', ':', '*'); ALPHABET_LAST_CHARS_COMPATIBLE: array[TLastCharType] of string = ('*', '。', '？', '：', ''); ALPHABET_LAST_CHARS_LEVEL: array[TLastCharType] of TAnalysisLevel = (alWarning, alHint, alHint, alHint, alHint);

---

Citation:

---

Envoyé par Paul TOTH

tu peux aussi écrire #$2192

---

Ah, je ne connaissais pas celle-là. Merci une bonne journée

SergioMaster, cela m'étonne que ne soit jamais tombé sur un #$D#$A lors d'un débogage avec une chaine contenant un CRLF (sLineBreak)

Ben, non où alors je n'y avais vraiment jamais prêté attention.
A minima c'est donc une bonne piqure de rappel

Bon, tout bête ... le soucis était la police de caractère utilisée nativement par la ListBox : MS Sans Serif
J'ai mis mes caractères dans la dfm et en changeant de fonte, ils sont apparus!
En tout les cas, j'ai appris plein de chose dans les échanges, merci à tous.