Discussion :

[potili2]

bonjour
est il possible d'appeler une procedure par son intitulé écrit sous forme de chaine
avec qque chose de ce genre:

Code :

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

1
2
3
4
5
  var chaine:string;
  begin
  chaine = 'travail_1';
  chaine;
end;

actuelllement, j'utilise la métode 'case', mais c'est limité.
merci
Jean Pierre

[droggo]

Koe,

Je suppose que tu as essayé, et tu sais donc que la réponse est non.

[ero-sennin]

Salut,

Comme le dit Droggo, la réponse est non.
Peux-tu nous exposer un peu plus ce que tu souhaites faire ?
Pourquoi le case est-il limité ?
Un peu de code peut-être ?

Merci

[Yurck]

Non, non c'est peut-être un peu rapide.

cherche du côté de l'unité typInfo.pas
GetMethodProp

PS : Tu peux aussi de façon plus simple utiliser une liste d'action et accéder à l'une d'entre elle par son nom.

[potili2]

je travaille avec des cours boursiers
le même type de procédure doit pouvoir s'effectuer à la demande sur différentes unités de temps de mes données d'ou lecture de différentes Tstring puis dans la Tstring choisie, on lit l'une ou l'autre donnée (paramètre variable 'o' du code)

cum_quand_maximum('o',300)

et j'aurai beaucoup de procédures différentes, donc ça fait vraiment beaucoup de cas à gérer.
pour ça que si qqun a une idée, je suis preneur
si Yurck voulait bien développer un peu son idée, pcq je ne vois pas quelle est son idée avec getmethodprop
merci
Jean Pierre

[Yurck]

Tu pourrais concevoir une classe avec des propriétés mises à jour par une méthode qui elle est appelable via SetPropValue



allez un petit exemple à main levée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
  TMaClassDeTraitement = class
  private
    FMethodeAppelable: boolean;
    procedure SetMethodeAppelable(const Value: boolean);
  published
     public
        property MethodeAppelable : boolean read FMethodeAppelable write SetMethodeAppelable;
     end;
 
function  AppelDeMaMethodeParametreBoolean( MaClassDeTraitement   : TObject;
                                            NomDeMaMethode        : String;
                                            MonParametreBoolean   : Boolean)  : Boolean;
 
implementation
 
uses typinfo;
 
procedure TMaClassDeTraitement.SetMethodeAppelable(const Value: boolean);
begin
  FMethodeAppelable := Value;
  // En fonction de ce que je vaux faire je fais mon traitement
end;
 
 
function  AppelDeMaMethodeParametreBoolean( MaClassDeTraitement   : TObject;
                                            NomDeMaMethode        : String;
                                            MonParametreBoolean   : Boolean)  : Boolean;
begin
  if IsPublishedProp(MaClassDeTraitement, NomDeMaMethode) then
  begin
     Result := GetPropValue(GetObjectProp(MaClassDeTraitement,NomDeMaMethode), NomDeMaMethode, MonParametreBoolean);
     SetPropValue(GetObjectProp(MaClassDeTraitement,NomDeMaMethode), NomDeMaMethode, MonParametreBoolean);
  end
end;

Tu peux ainsi traiter toutes sortes de paramètre en créant un record ou autres

Suis-je clair ?

Sans quoi tu peux aussi déclarer une liste d'actions et boucler sur

Code :

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

1
2
3
4
 
  For i := 0 to (ActionsListe.ActionCount - 1) do
     if ActionsListe.Actions[i].Name = NomDeMaMethode then
       ActionsListe.Actions[i].exceute;

[potili2]

merci, je pense qu'avec ça, je vais pouvoir me débrouiller.
je m'y jette!