Discussion :

[messahel]

bonjours a tous;
UTF8ENCODE marche tres bien avec la fonction Locate

Code :

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

table1.Locate('champ1',utf8encode(edit1.Text),[locaseinsensitive]);

mais elle ne marche pas dans la fonction Filter avec ce code:

Code :

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

table1.Filter:='[champ1]='+quotedstr(utf8encode(edit1.text));

apres l'execution, table1.Filter='champ1=edit1.text'
est ce qu'il y a un truc que je dois l'ajouter a l'instruction ?
Merci pour vos aides.

[ShaiLeTroll]

Pourquoi des crochets autour de champ1 ?
Filtered à true ?

[messahel]

- meme sans crochets marche aussi... je l'ai appris comme ca depuis longtemp et ca marche
- oui ... Filtered=true

- ce code marche bien:

Code :

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

1
2
3
4
5
 
table1.Filtered:=false;
table2.Locate('champ1',utf8encode(edit1.Text),[locaseinsensitive]);
table1.Filter:='champ1='+quotedstr(table2.FieldByName('champ1').AsAnsiString);
table1.Filtered:=true;

Rq:la table2 contient aussi "champ1" avec les memes enregistrements

[messahel]

resalut;
est ce que vous pouvez m'expliquer ca ?

Code :

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

chaine:=utf8encode(edit1.text);

resultat: chaine=edit1.text

[ShaiLeTroll]

La variable chaine contient 'edit1.text' comme valeur ou alors UTF8Encode n'a eu aucun effet (le é ne sont pas traduit dans un truc genre é )
Je ne comprends pas bien ton histoire de résultat !
Edit1 est correctement instancié ?

Est-ce que le BDE supporte l'UTF8 dans un Filter ?
As-tu essayé un SQL et un TQuery ?

[messahel]

bjr ShaiLeTroll;
je veux dire par resultat le contenu de la variable chaine apres l'execution de l'instruction:

Code :

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

chaine:=utf8encode(edit1.text);

normalement chaine doit contenir une chaine de caracteres codés et pas la meme valeur de edit1.
mes tables sont en Paradox

[ShaiLeTroll]

tu stockes de l'UTF8 dans Paradox, ça c'est l'une des bidouilles que je t'avais proposé dans un autre sujet !
C'est courageux (voire téméraire) d'utiliser Paradox+Arabe+Français, une migration vers FireBird t'aurait évité ce genre d'ennui !

Ton contient edit1.text une chaine UnicodeString
En Delphi2009, UTF8Encode\UTF8Decode n'était pas marqué "deprecated" ?
Bon semble qu'il n'y ait plus remarque à ce sujet en XE2 ...

Pour l'encodage de edit1.text, cela dépend du contenu, si Français, seul les accents seront encodés sur deux caractères
Si arabe, tout sera encodé

Essaye de voir les différences selon si chaine est un String (UnicodeString), AnsiString ou UTF8String et même RawByteString

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  chaine: RawByteString;
...
begin
...
  chaine := UTF8Encode(Edit1.Text);
  table1.Filter := 'champ1=' + QuotedStr(chaine); 
  table1.Filtered := true;
 
ou
 
  chaine := '''' + UTF8Encode(Edit1.Text) + '''';
  table1.Filter := 'champ1=' + chaine; 
  table1.Filtered := true;

QuotedStr prend la RawByteString fourni par UTF8Encode, comment la traite-il vu qu'il utilise une UnicodeString en paramètre et UnicodeString en valeur de retour !

[messahel]

bsr ShaiLeTroll;
j'ai reussi avec le 2eme code:

Code :

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

1
2
3
chaine := '''' + UTF8Encode(Edit1.Text) + '''';
  table1.Filter := 'champ1=' + chaine; 
  table1.Filtered := true;

mais j'aimerai bien savoir comment ca se passe ?
pourquoi utf8encode (toute seule) n'encode pas une chaine de caracteres et apres avoir ajouter les guillemets on obtient une chaine encodé
en plus, si edit1.text='chaine_de_caracteres'
alors: chaine=''chaine_encodé''
et en suite pour faire un traitement (de comparaison par exemple dans les tables) on doit enlever un guillemet de l'avant et un de la fin pour avoir des resultats correctes

[ShaiLeTroll]

Je dirais plutôt que UTF8Encode encode en UTF8String mais comme tu affecte une UTF8String lors du passage de paramètre à QuotedStr donc à une UnicodeString, il y a une conversion implicite, qui annule la conversion en UTF8

l'Ajout des guillemets c'est uniquement pour Filter pour lui délimiter la chaine !
Même principe dans un SQL

En utilisant des requêtes paramètrées, cela pourrait être moins pénible (en veillant à utiliser AsAnsiString et des RawByteString pour empecher les conversions implicites !)

Encore une fois UTF8+Paradox dans un Delphi Unicode c'est un très mauvais choix technique !
C'est intéressant par curiosité mais très difficile à gérer !
Déjà le déploiement du BDE sous un OS comme WinSeven ou 64Bits, sera pénible, as-tu pensé à cela avant de lancer dans un développement aussi complexe !