Discussion :

[rivierebruno22]

Bonjour
Sur certains de mes composants "maison" le passage en Delphi 2009 me donne les avertissements suivants :

W1050 WideChar réduit en byte char dans les expressions d'ensemble. Envisagez d'utiliser la fonction 'CharInSet' dans l'unité 'SysUtils'.

Cet avertissement s'applique a toutes les lignes de ce type :

Code :

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

If R[N]in['.',','] Then

A noter que R est une variable définie en tant que String et N une variable définie en tant qu'Integer

Si quelqu'un a une idée...

Merci d'avance

[ShaiLeTroll]

En fait "['.',',']" va générer un TSysCharSet, manque de bol, c'est limité à 256 valeurs, donc à du ANSI, ... je n'avais pas pensé que D2009 poserait problème avec le "in", très interessant, remplace par

Code :

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

If CharInSet(R[N], ['.',',']) then

Attention, tu compare toujours R[N] qui un UniCodeChar avec un AnsiChar, c'est juste que tu n'as plus de warning du compilateur !

[rivierebruno22]

Je viens d'essayer et ca marche merci beaucoup

Comment je peux faire alors pour faire la comparaison en Unicode ? Car ce qui m'interesse c'est de pouvoir tout passer en Unicode...

[Aka Guymelef]

Tout à fait, c'est dans le livre blanc de Marco Cantù consultable sur le site de CodeGear (en anglais).

Dans une construction IN, le compilateur assume que tu es en train de porter de l'ancien code vers 2009 et donc les caractères dans le set sont considéré comme des caractères Ansi.

Pour la comparaison c'est pareil qu'avant, tout fonctionne déjà en mode unicode.

[rivierebruno22]

Donc si je vous suis bien, après avoir modifié mon code pour utiliser CharInSet la comparaison ce fera en unicode ?

[Aka Guymelef]

Je ne suis pas sûr (je n'ai pas Delphi 2009) néanmoins un test est assez facile à faire, mettez un é dans le set (si c'est possible ), un é dans la chaîne à tester et regardez si ça fonctionne bien.

[rivierebruno22]

j'ai fait un test très simple :

Code :

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

if CharInSet(key,['é','a']) then ShowMEssage('Trouvé');

Et dans mon TEdit j'ai saisi différents caractères dont le 'é' et il me le trouve

Merci pour votre aide

[ShaiLeTroll]

é est un ANSI et key est tout simplement transformé de UniCode vers ANSI !
Heureusement que cela fonctionne !

un caractère non Latin-1\window 1252 serait plus pertinent que é comme 'я' de Koяn