Discussion :

[omen999]

bonjour,

je me demandais s'il existe un moyen pour définir sous delphi (<= d2006) une méthode par défaut comme pour les propriétés tableau

style:

Code :

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

1
2
3
4
5
6
7
8
type
TToto = class
published
    procedure myProc(var varParams: Variant);
end;
..
myToto:=TToto.Create;
myToto(50) au lieu de myToto.myProc(50)

merci par avance pour vos suggestions

[Dr.Who]

mmm non on ne peu.

pas.


ça ne fonctionne que pour les propriétés tableaux.
mais rien ne t'empeche (à tester) de faire sur entiers uniquement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TMaClass = class
  private
    function GetProc(const Value: integer): extended;
  public
    property Proc[Value: integer] : extended read getProc; default;
  end;
 
 
function TMaClass.GetProc(const Value: integer): extended;
begin
  result := Value * sqr(Pi);
end;

Code :

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

1
2
3
4
 
begin
  R := MaClass[50]; // 50 * Pi²
end;

ha ... essaye en mettant "default;" derrière la proc (ne fonctionnera peut être pas).

[omen999]

Code :

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

ha ... essaye en mettant "default;" derrière la proc (ne fonctionnera peut être pas).

déjà testé sans succès...(le compil a lu la doc lui aussi )
pour le reste je teste ta 1ere proposition
@+

[ShaiLeTroll]

Voir le code de la TStrings\TStringList dans Classes.pas
C'est très éducatif au sujet la propriété par défaut, mais c'est juste pour une propriété !

Après il reste toujours le mode non objet

Code :

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

procedure myToto(var varParams: Variant);

Code :

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

myToto(50);

[omen999]

finalement, c'est une impasse car la propriété doit être publiée et c'est incompatible avec le type array imposé par la directive default

Après il reste toujours le mode non objet

mmm, le bouzin doit être instancié dans un serveur com créé on-the-fly donc c'est pas top moumoute mais je garde ton code il est collector
merci pour vos réponses

[ShaiLeTroll]

Ah, tu rajoutes en plus le published, tu veux faire quoi, tu voudrais pas lancer une méthode en fonction de son nom ou un truc du genre ?

[omen999]

tu voudrais pas lancer une méthode en fonction de son nom ou un truc du genre ?

on peut aussi le voir comme ça
j'ai écrit un hôte pour langage active scripting (vbscript, jscript, oo rexx, activepython, activeruby etc...)
en y ajoutant des fonctionnalités qui n'existent généralement pas dans ces langages et en particulier la possibilité
d'appeler directement des fonctions dans des dll en suivant une syntaxe proche de vba
mais j'ai un petit problème "cosmétique"

Code :

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

1
2
declare function myfunction lib kernel32.dll alias myfunctionW (myparm1 as long, myparam2 as double) as integer
j'écris myfunction.call(2 , 778525452525) au lieu de myfunction(2 , 778525452525)

- soit j'associe à chaque déclaration de fonction un objet distinct portant son nom et je peux appeler alors son unique méthode par défaut sans la nommer expressément
(c'était le sens de ma question initiale)
- soit j'associe à chaque déclaration de fonction le même objet unique que j'intégre dans le namespace global du script mais ça suppose de pouvoir créer dynamiquement pour cet objet de nouvelles méthodes portant le nom des fonctions dll
j'aurais bien voulu m'inspirer de cet article malheureusement je voudrais rester sous D4 et la classe TPublishableVariantType n'existe que depuis la D6
voili voilou, j'sais pas trop si j'ai été clair sur ce coup