Discussion :

[mbp566]

Bonjour a tous

J'ai pas mal cherche (FAQ, Forum, Google), mais j'ai pas trouve donc je poste:
Je suis sur un PC avec XP en japonais et j'utilise la version US de delphi.

Et je n'arrive pas a afficher les accents dans mon application. Par exemple si je fais:

Code :

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

Label1.Caption:=MonTexte;

le label n'affiche pas d'accents, alors que MonTexte contient ces accents (il "remplace" la lettre accentuee par la meme lettre sans son accent). Alors voici jusqu'a present ce que j'ai essaye:
- Tous les TFontCharset disponibles
- Plusieurs Font dont je suis sur qu'elle ont ces accents
- Plusieurs pages de code dans les options du projet.

Plus precisement, mon texte vient d'un fichier XML (TXMLDocument). Et la c'est assez bizarre car si je lis IXMLNode.Text (string), les accents sont supprimes. Par contre avec IXMLNode.NodeValue (OleVariant), pas de probleme.

Du coup j'ai l'impression que mon systeme ne peut stocker d'accents dans une string de base. Mon probleme c'est que toute les proprietes Caption ou Text des compo VCL sont des string...

Voila a peu pres, a noter que j'ai teste de lancer l'appli sur un PC avec windows US, et le resultat est le meme (mais j'ai pas recompile l'appli sur ce PC...)
Enfin un autre truc que je comprends pas c'est que j'ai aucun pb avec les caracteres asiatiques (a condition que je selectionne le bon TFontCharset bien entendu). Je n'ai pas teste avec des caracteres scandinaves ou autre car je suis deja suffisament perdu comme ca.

Mon but final est que mon appli puisse afficher, en meme temps, du francais, du chinois et de l'arabe, pas exemple (IE, Opera, Wordpad et autres le font sans probleme)

[neilbgr]

Quelle version de Delphi ?

Car pour D2005 il me semble qu'il bosse en unicode donc il ne devrait pas y avoir de pb.

En revanche pour les versions précédentes il faut utiliser les controls TNTUnicode ( http://www.tntware.com/delphicontrols/unicode/ ).

[mbp566]

Delphi 7. Je me disais bien que Delphi ne gerai pas, a cause des options de projets: oblige de selectionner une langue (pas d'unicode dans la liste)

Bon je vais tester les TNT composants, et je reposterai pour vous donner mes impressions (si j'oublie pas...)

Merci du conseil en tout cas.

[mbp566]

Bon alors j'ai essaye les compo TNT, et ca marche bien.

Ce qui est cool aussi c'est qu'on peut facilement faire un echange "standard" avec les compo de base de la VCL, donc l'adaptation est rapide.

Par contre il me reste un petit probleme:
Comme j'expliquais plus haut, je lis des chaines de caracteres depuis un fichier XML, ce sont donc des OleVariant.
Si je sauvegarde ces OleVariant dans un WideString, je perds encore les accents...deja je comprends pas pourquoi car l'aide du delphi dit que les WideString sont censes etre Unicode.
Donc, pour afficher correctement ces chaines de caracteres je dois les garder en OleVariant, ce qui n'est pas vraiment genant, sauf que je fais des manipulations sur ces strings (un AnsiReplaceStr exactement). Or les functions de manipulations prennent en entree/sortie des AnsiString, voir des WideString pour certaines, mais pas des OleVariant.

Bref, est ce que quelqu'un sait:
- Pourquoi Delphi me vire les accents quand je stocke ma chaine de caractere OleVariant dans une WideString ?
- (ou bien) Comment manipuler des chaines de caracteres OleVariant sans changer leur type ?

Merci

[mbp566]

Decidement...encore un autre message pour plus de precisions:

La conversion OleVariant->WideString ne pose AUCUN probleme, les accents sont toujours la.
En fait c'est TRES trompeur car la watch list n'affiche pas les accents, donc en debug on peut pas savoir si ca marche ou pas...mais au final on a bien les accents qui s'affichent dans l'appli.
(ce qui est tres bizarre, car si on laisse la variable en OleVariant, la watch list affiche bien les accents)

Bref, maintenant tout va bien.
Le seul truc, c7est que y'a pas mal de fonctions de manipulation (AnsiReplaceText, ...) qui n'existent pas pour les WideString. Je vais devoir coder ca a la main a partir des fonctions de manipulation de base. Un peu long, donc si quelqu'un connait une bonne Unit pour la manipulation des WideString, je suis preneur.

[neilbgr]

J'ai trouver quelques routines dans JclUnicode.pas ( de la JCL )...

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
19
20
function WideAdjustLineBreaks(const S: WideString): WideString;
function WideCharPos(const S: WideString; const Ch: WideChar; const Index: Integer): Integer;  //az
function WideCompose(const S: WideString): WideString;
function WideDecompose(const S: WideString; Compatible: Boolean): WideString;
function WideExtractQuotedStr(var Src: PWideChar; Quote: WideChar): WideString;
function WideQuotedStr(const S: WideString; Quote: WideChar): WideString;
function WideStringOfChar(C: WideChar; Count: Cardinal): WideString;
function WideCaseFolding(C: WideChar): WideString; overload;
function WideCaseFolding(const S: WideString): WideString; overload;
function WideLowerCase(C: WideChar): WideString; overload;
function WideLowerCase(const S: WideString): WideString; overload;
function WideNormalize(const S: WideString; Form: TNormalizationForm): WideString;
function WideSameText(const Str1, Str2: WideString): Boolean;
function WideTitleCase(C: WideChar): WideString; overload;
function WideTitleCase(const S: WideString): WideString; overload;
function WideTrim(const S: WideString): WideString;
function WideTrimLeft(const S: WideString): WideString;
function WideTrimRight(const S: WideString): WideString;
function WideUpperCase(C: WideChar): WideString; overload;
function WideUpperCase(const S: WideString): WideString; overload;

non exhaustif...