InvokeMethod (Instance)

De Wiki1000
(Différences entre les versions)
Ligne 18 : Ligne 18 :
 
<source lang='delphi'>
 
<source lang='delphi'>
  
procedure InovkeMe(p1:string; p2:Integer; p3:Boolean);
+
procedure MyClass.InvokeMe(p1:string; p2:Integer; p3:Boolean);
 
begin
 
begin
 
   if p3 then ShowMessage(Format('%s %d',[p1,p2])) else ShowMessage('false');
 
   if p3 then ShowMessage(Format('%s %d',[p1,p2])) else ShowMessage('false');
 
end;
 
end;
  
Procedure TestInvokeMethod;
+
Procedure MyClass.TestInvokeMethod;
 
begin
 
begin
 
   InvokeMethod('InvokeMe',['coucou',100,true]);
 
   InvokeMethod('InvokeMe',['coucou',100,true]);

Version du 30 juin 2010 à 10:53

function InvokeMethod(const iMethodName:string; iArgs:Variants):Variant;

Cette fonction permet d'exécuter dynamiquement une méthode de l'objet.

Result La valeur de résultat de la méthode.
iMethodName Le nom de la méthode a exécuter
iArgs Un tableau de variant contenant les paramètres de la méthode.

Exemple

procedure MyClass.InvokeMe(p1:string; p2:Integer; p3:Boolean);
begin
  if p3 then ShowMessage(Format('%s %d',[p1,p2])) else ShowMessage('false');
end;
 
Procedure MyClass.TestInvokeMethod;
begin
  InvokeMethod('InvokeMe',['coucou',100,true]);
end;

Voir aussi


Objets métiers (tech)Développement DSM

Outils personnels