vous me montrer juste une petite chose et je ferais le reste.
je consuruit mon paquet dans le je déclarce une Calss Exemple TForm1.
dans mon application bon j'arriver a charger mon paquet jusque la c'est bon.
mais lorsque j'essai de charger la classe dans mon application je n'arrives pas.
en utilisant le code dans le Tuto.
1 2 3 4 5 6 7 8 9 10 11
| Type
EPluginError = Class(Exception);
...
Var MaClasse : TPersistentClass; // Classe de base
Instance : TPersistent; // Instance de l'objet a charger
...
MaClasse := GetClass('TMaClasse'); // Chargement de la classe depuis le package
If MaClasse = nil Then // GetClass renvoie nil en cas d'erreur
Raise EPluginError.CreateFmt('Classe ''%s'' non trouvée', ['TMaClasse']); // Erreur
// Succes :
Instance := MaClasse.Create; // Création de l'objet |
a mon avis mon code bloque ici
MaClasse := GetClass('TMaClasse');
le résultat c'est nil en plus quand on utilise GetClass comment il sait dans quel paquet chercher .
je vous remercie d'avance.
Partager