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 ?