Comment créer un module delphi

Bonjour;
Je veux créer un module en delphi qui regroupera toutes les fonctions dont j'aurai besoin et le DataModule correspondant pour pourvoir les ré implémenter dans une autre application.

J'ai trouvé que c'est possible de le faire en créant une unité mais mon souci c'est que l'unité ne me permettra pas de ré implémenter le DataModule : elle contient que les fonctions et les procédures.
Alors comment procéder pour avoir un seul module contenant les fonctions et le DataModule à la fois ???? est il possible????

Merci infiniment.

Bonjour,

Si j'ai bien compris, vous voulez créer automatiquement le datamodule losrsque vous appeler votre unité pour la 1° fois.


Pour cela vous pouvez utiliser la fonction initialization de l'unité.
Pour détruire votre datamodule en fin de travaille, utiliser finalization.

Exemple:

Code:

---

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

unit UMyUnité;   interface uses SysUtils, ADODB, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, DataBase, Classes, DB, Variants, Contnrs, UMyDataModule ;   var MyDataModule : TFMyDataModule; // Dans l'unité UMyDataModule implementation   Initialization MyDataModule := TFMyDataModule.Create(nil); Finalization MyDataModule.Free;

---

Une autre solution (plus simple), consiste a mettre vos procédure dans le DataModule.

Salut;

je crois que la solution c'est le client / serveur. dans ton serveur tu met ton ou tes datamodules puis tu les invoque depuis le ou les clients. c'est un peu difficile de les programmer et les maintenir.

je pense que tu aura ce que tu recherche en faisant un click droit sur ton dataModule->ajouter au referentiel.
Ensuite dans un autre projet, tu fais nouveau->autre... et tu selectionne ton datamodule. Tu peu choisir d'en creer un copie, de l'heriter, ou tout simplement de referencer le meme fichier

Il faut aussi penser que si ces fonctions sont réparties dans plusieurs unités mais qu'elles apparaissent dans le uses de ton DataModule, leurs inclusions dans ton projet est implicite ;). Tu n'as pas besoin de les lier manuellement (Ajout au projet).

Bonjour;
Merci à tous pour vos réponses.
Je vois que toutes vos solutions sont logiques mais pour mon cas je vais suivre celle prposée par Tardiff Jean-François.
BOnne journée ;)

bon bah alors je crois que j'ai pas compris ton probleme :aie:

Pour information, c'est la mise en pratique de la Design Patterns : Singleton ...

Sinon, un DataModule, ça ne sert pas à grand chose, ce n'est qu'un container pour TComponent, cela peut être remplacé par une véritable architecture objet base sur les patterns Singleton et Factory ...