Copier un index multiple [Delphi7] [DBase]

Bonjour et meilleurs voeux à toutes et à tous.

Clipper 5 (sous DOS) proposait l'instruction bien pratique Copy Stru pour copier une base et ses index. Je viens de faire l'équivalent sous Delphi : ça marche pour les index simples, mais ça plante pour les index multiples.

Exemple de création d'un index multiple :

Code:

---

1 2 3 4 5 6 7

with AddIndexDef do begin Name := 'IDX_MULT'; Fields := 'Nom+Prenom'; Options :=[ixExpression]; end;

---

Lors de la copie, je parviens à récupérer Name := 'IDX_MULT' et Options := [ixExpression], mais pas Fields qui semble vide, d'où plantage.

Si quelqu'un a une idée... D'avance merci.

Cordialement,

Alain

Utilise les Composants Apollo de Vista Sofware, il gère les index multiples ainsi que les NDX et SDX

si tu veux récupérer le contenu de l'index via le BDE, tu dois écrire ton expression dans Fields effectivement, par contre ensuite, il faut consulter Expression
Faudrait lire l'aide c'est écrit dedans !

Citation:

---

Envoyé par Aide de Delphi 7

Remarque : Lors de la création d'index d'expressions dBASE, n'utilisez pas de liste de champs séparés par des points-virgules. Initialisez Fields à une expression du langage de manipulation de données dBASE concaténant plusieurs champs, convertissant des types de données de champs ou utilisant des sous-chaînes de champs. Vous devez inclure la valeur TIndexOption ixExpression dans le paramètre Options des fonctions telles que TIndexDefs.Add ou dans la propriété Options d'un objet TIndexDef. Lors de l'examen d'index d'expressions dBASE existants, utilisez la propriété Expression à la place de la propriété Fields.

---

Merci ShaiLeTroll.
Je vais essayer d'exploiter ta piste.

Bonjour,

Voici le résultat de l'exploitation de la piste fournie par ShaiLeTroll :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

with AddIndexDef do // Pour un index simple... begin Name := 'IDX_SIMPLE'; // nom de l'index simple Fields := 'Nom'; // indexation sur le champ Nom Options :=[]; // éventuellement, Options : [ix Primary], etc... end; // Pour un index multiple... begin Chaine := 'Nom'+'+'+'Prenom'; // concaténation : résultat = 'Nom+Prenom' Name := 'IDX_MULT'; // nom de l'index multiple Expression := Chaine; // indexation sur les champs Nom et Prenom Options :=[ixExpression]; // Options : obligatoire = [ixExpression] end;

---

Merci encore.

Cordialement,
Alain

PS : je cherche régulièrement dans l'Aide de Delphi, mais ce n'est pas toujours évident de s'y retrouver (ceci en réponse amicale à : "Faudrait lire l'aide c'est écrit dedans !")

Ne t'inquiète pas, je le balance tout le temps, ... parce que je connaissais pas moi même la réponse, et je l'ai trouvé dans l'aide (j'utilise ApolloTable qui gère parfaitement DBASE avec des méthodes dédiées, je ne l'utilise pas par le BDE) ... surtout que celle de D7 est une vrai merveille comparée aux versions suivantes ... quoi que Delphi 2009 redresse la barre (même si très lourde en mémoire)

Sinon, merci d'avoir fourni ton code, cela pourra servir à d'autres ! :ccool:
Si ils pensent à utiliser la fonction rechercher du forum :mouarf: