Rajouter un Field à un TTable en cours de route

Bonjour,
Je cherche un moyen pour rajouter une nouvelle colonne (ou field) à un TTable en cours d'exécution.
En fait, je visualise mes données dans un DBGrid et une colonne ne me convient pas. Il faudrait la visualisée avec une constante supplémentaire.

Code:

---

Table1->Fields->Add(Table2->FieldByName("NewField"));

---

Cela ne convient pas parce qu'au changement de cette valeur, cela change la valeur de Table2 (qui est un champs de même type).

En résumé, il me faut soit ajouter un field à ma table, soit afficher un champs dans un DBGrid du type NewField multiplié par une constante.

Merci d'avance de vos réponses.

Bonsoir,
Je n'est pas testé car je n'est pas le temps a cet instant mais si tu passes par 'FieldDefs' de la table ?
Du type :

Code:

---

1 2	Form1->TableAFFoption->FieldDefs->Add() //la il attend des parametres

---

En espérant ne pas etre trop a coté de la plaque... :)
Bon courage et bonne soirée a tous.

Bouh :oops:
J'ai plutot l'impression que j'aurai du me taire (!)
Ca ne m'a pas l'air d'etre tres efficace...
Excuses :oops:

J'ai preque trouvé. Il ma manque encore quelque chose.
Impossible de mettre le DataType que je veux utiliser (ftCurrency).

Code:

---

1 2 3 4

NewField->SetFieldType(ftCurrency); // ne fonctionne pas. Dans l'aide, il y a marqué que cela ne fait rien. //NewField->DataType = ftCurrency; // DataType accessible en lecture seule. Pas d'écriture possible. NewField->FieldName = "NewField"; Table1->Fields->Add(NewField);

---

Il me faut donc juste trouver comment faire pour modifier mon datatype.
Je n'oublie pas le delete à la fin du code :wink:

Je n'ai toujours pas trouvé la solution mais j'ai pu contourner le problème en procédant autrement.
Merci