Discussion :

[damene]

Bonjour tout le monde.

J’utilise Delphi 7 Entreprise

Dans une recherche sur un ou plusieurs champs (le nombre étant variable selon le cas), je cherche à utiliser le type variant.

Code :

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

1
2
3
4
if maTable.locate(‘Champ1; Champ2; Champ3',
                        VarArrayOf([edit1. Text,
                                              edit2.Text,
                                              edit3.Text]),[loPartialKey])  then

si ‘Champ1; Champ2; Champ3', j’arrive à les mettre dans une variable de type String, je n’ai pas su mettre [edit1. Text, edit2.Text, edit3.Text] dans une variable de type Variant.
J’ai essayé, mais sans succès en utilisant le type variant.

Code :

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

1
2
if MTable.locate(MFiltre, VarArrayOf(
                              [MVariantRech ]),[loPartialKey]) then

Var MFiltre :String ; MVariantRech : Variant ;


une Classe d’exeption est déclenchée : EVariantBadIndexError, Indice de Variant ou de tableau hors limite. Le type variant ne supportant les tableaux.

Est-ce qu’il y a un moyen de paramétrer[ edit1. Text,edit2.Text,edit3.Text] ?
Merci.

[Papy214]

La première question qui me vient est : "Pourquoi faire ? "

Sinon, le code suivant fonctionne:

Code :

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

1
2
3
4
5
6
7
8
 
var
  Vr: Variant;
begin
  Vr := VarArrayCreate([0, 1], varOleStr);
  Vr[0] := 'machin';
  Vr[1] := 'bidule';
  table1.Locate('CleCaution;NomTiersCaution', Vr, [loPartialKey]);

[SergioMaster]

Bonjour

La première question qui me vient est : "Pourquoi faire ? "

certainement parce qu'il y a une petite erreur dans le code (à moins que cela soit du à une erreur de transcription)

Code :

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

1
2
3
4
if maTable.locate('Champ1; Champ2; Champ3',
                        VarArrayOf([edit1.Text,
                                              edit2.Text,
                                              edit3.Text]),[loPartialKey])  then

il y a un espace entre edit1. et Text , ce qui n'est pas bon du tout
sans parler de l'apostrophe (`) au lieu de la guillemet simple devant Champ1

[damene]

La première question qui me vient est : "Pourquoi faire ? "

Sinon, le code suivant fonctionne:

Code :

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

1
2
3
4
5
6
7
8
 
var
  Vr: Variant;
begin
  Vr := VarArrayCreate([0, 1], varOleStr);
  Vr[0] := 'machin';
  Vr[1] := 'bidule';
  table1.Locate('CleCaution;NomTiersCaution', Vr, [loPartialKey]);

Comme je l'avais précisé, une quinzaine de recherche à faire, dans certains cas la recherche se fait sue un seul champ, dans d'autres elle se fait sur deux champs ou enfin sur trois champs.

Je voulais mettre un seul locate paramétré

Vr sera donc la variable que je cherchais avec un, deux ou trois champs.

Merci!