Discussion :

[lohot]

Bonjour,

Suite à la déception de la qualité de l'option Stretch dans Lazarus, je viens de repasser sous Delphi et tente de transcrire une application.

En essayant de transcrire un tri d'une base DBase VII dans Lazarus vers une base Paradox dans Delphi 2005, il apparait un problème. En effet, j'écris le même code dans les deux versions pour filtrer des éléments partiels :

Code :

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

1
2
3
Filtre := 'Champ1 = ''*' + Edit1.Text + '*'' and Champ2 = '*'' + ....... ;
Table1.Filter := Filtre;
Table1.Filtered := True;

Sous Lazarus, tout fonctionne correctement mais pas sous Delphi.

Quelqu'un aurait-il une idée ?

Lohot

[helmis]

Code :

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

1
2
3
Filtre := 'Champ1 = *' + quotedstr(Edit1.Text)+'* and ' + 'Champ2 = *' + quotedstr(Edit2.Text)+'*'...
Table1.Filter := Filtre;
Table1.Filtered := True;

[lohot]

Après avoir essayer ce qu'helmis me conseillait, l'application me renvois un message d'erreur :

Expression attendue mais '*' trouvé

Une précision, le filtre type TA* fonctionne correctement mais ni *TA ou *TA*.

Quelqu'un aurait-il un conseil ?

Lohot

[macumba]

tu peux essayer un truc de ce genre:

Code :

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

filter := 'chaine like ''%'+ edit1.text +'%''';

[Rayek]

Helmis a fait une grosse faute dans son filtre c'est qu'il a mis les * à l'extérieur du QuotedStr, alors qu'il faut que les * soit à l'intérieur.

Code :

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

1
2
3
4
 
Filtre := 'Champ1 = '+ QuotedStr('*' + Edit1.Text + '*') + ' and Champ2 = ' + QuotedStr('*' + Edit.text + '*') + .... ;
Table1.Filter := Filtre;
Table1.Filtered := True;

[macumba]

L'étoile ne marche comme l'indique lohot que si la chaine ne commence pas par *, surement un bug delphi. Le like fonctionne parfaitement par contre.

[Rayek]

L'étoile ne marche comme l'indique lohot que si la chaine ne commence pas par *, surement un bug delphi. Le like fonctionne parfaitement par contre.

C'est normal vu que ce qu'helmis proposait étais faux, relis bien le code d'helmis et tu verras.

Filtre := 'Champ1 = *' + quotedstr(Edit1.Text)+'* and ' + 'Champ2 = *' + quotedstr(Edit2.Text)+'*'...

prenons edit1.text = toto et edit2.text = tata

Filtre sera égal à : Champ1 = *'toto'* and Champ2 = *'tata'*

Normal que ca lui fasse une erreur vu que la synthaxe SQL est fausse.

Après il est vrai que * ne fonctionnera pas pour certaine base de données (parfois faut mettre %)

[lohot]

Il est vrai que le tri dont le critère est de type *TATA* ne renvoit pas d'erreur, mais a priori Delphi (2005) ne reconnait pas l'étoile devant comme signifiant n'importe quelle chaine de caractère avant donc filtre tous les mots ne commençant pas par *TATA (et ce n'est pas ce que je recherche).

Par contre, j'utilise une base de d onnée PARADOX et quand je me connecte à celle-ci et que j'essaye d'écrire CHAMP1 like '%MOT%' dans le champ filter de l'inspecteur d'objet de la TTable Delphi me renvois cette erreur : Erreur du moteur de base de donnée Opération non applicable.

Si cela fonctionne avec un autre type de base de donnée, je suis preneur du rensenseignement.

Lohot

[Rayek]

*Fait un mix des réponses*


Essaie cela :

Code :

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

1
2
3
4
 
Filtre := 'Champ1 = '+ QuotedStr('%' + Edit1.Text + '%') + ' and Champ2 = ' + QuotedStr('%' + Edit.text + '%') + .... ;
Table1.Filter := Filtre;
Table1.Filtered := True;

[lohot]

Après maints essais infructueux, j'ai décidé de créer ma propre procédure de tri permettant de contourner le problème de majuscule et minuscule et autres de Delphi.

Je posterai le code dès que je serai sûr du bon fonctionnement de celui-ci.

Lohot

[macumba]

Citation:
macumba a écrit :
L'étoile ne marche comme l'indique lohot que si la chaine ne commence pas par *, surement un bug delphi. Le like fonctionne parfaitement par contre.


C'est normal vu que ce qu'helmis proposait étais faux, relis bien le code d'helmis et tu verras.

Non j'ai testé avec un code correct car je savais que celui d'helmis était faux. Pour info il n'y a pas que delphi 2005 qui plante avec cette écriture delphi 6 aussi. Le like n'est pas indiqué dans l'aide mais il fonctionne bien uniquement sur des TClientDataset et malheureusement pas sur des TTable ou des TQuery.