Discussion :

[nmathon]

Bonjour,

Voici mon problème:

Ma classe de base est TDocument.
J'ai plusieurs sous-classes de TDocument (TDoc1, TDoc2, etc).

J'avais déjà demandé comment faire pour appeler des méthodes de façon dynamique est ça fonctionne bien comme ceci:

Code :

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

1
2
3
4
5
TMethod(Methode).Code := 
TDocument(lstItem.Data).MethodAddress('ma_methode');
 
if (Assigned(Methode)) then
   strTemp := Methode;

Ça fonctionne bien mais la méthode doit être dans la classe de base. J'aimerais modifier mon code afin d'être en mesure d'appeler dynamiquement les méthodes en fonction de la sous-classe.

En clair, dans le code ci-dessous, j'aimerais changer le TDocument pour le nom de la sous-classe (j'ai cette information dans une table, comme je l'avais pour le nom de la méthode).

Est-ce possible?

Merci!

[tourlourou]

pê qqch style

Code :

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

if TObject(lstItem.Data).ClassName='TMyClass' then p:=TMyClass(lstItem.Data).MethodAddress('MaMethode')

[anapurna]

salut

exemple si ton document n'est pas instancié

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var 
   MetaClass : TPersistentClass;
   ComponentMetaClass : TComponentClass;
   ADoc: TComponent;
begin
  MetaClass := FindClass( 'TDoc1');
  ComponentMetaClass := TComponentClass( MetaClass );
  ADoc := ComponentMetaClass.Create( self );
  (ADoc as TDocument).Show;
end;

elle peut s'écrire en une ligne de code

Code :

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

TDocument(TComponentClass( FindClass( 'TDoc1' ) ).Create( Self )).Show;

[guillemouze]

euhhh je suis peut etre a l'ouest, mais ce que tu recherche n'est pas le principe des methodes virtual ?