Discussion :

[ludovic tambour]

Bonjour,

J'ai un probleme a vous soumettre.

Mon programme contient une variable "F" de type procédure et un ensemble de procedure (toto1, toto2, titi...). J'ai egalement une variable "functionName" de type string qui contient le nom de la fonction qui va etre associée a "F".

Malheureusement, il n'est pas possible de faire directement F := functionName; puisque F est de type procedure et functionName de type string. Il y a t il un moyen de faire une conversion de type dans ce cas.

Probleme inverse : ayant une variable F de type procedure, y a t il un moyen de recuperer son nom sous forme de string ?

Quelqu un peut-il eclairer ma lanterne, stp ?

Bonne journee a tous

Ludo

[Tardiff Jean-François]

Bonjour,

A prioris je ne sais pas.

Par contre les properties peuvent toujour vous êtres utils pour contourner le probléme.

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
 
private
  function GetNotifyeventBynName(Name: String): TNotifyevent;
public
  property NotifyEventbyName[Name: String]: TNotifyEvent read GetNotifyeventBynName;
Implemented
 
function TMyform.GetNotifyeventBynName(Name: String): TNotifyevent;
Begin
  if name  = 'NOM1' then
    result := NotifyEvent1
  else if name  = 'NOM2' then
    result := NotifyEvent2
  else result := nil;
end;

Dans cette exemple si vous taper GetNotifyeventBynName('Nom1') vous recupérez le notifyevent1.
si le nom est faux vous recupérez nil.

[Reisubar]

Dans le cas d'un objet tu peux peut être utiliser GetMethodAdress :

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('heho', mtWarning, [mbOK], 0);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  N: TNotifyEvent;
begin
  if MethodAddress('Button1Click') <> nil then
  begin
    @N := MethodAddress('Button1Click');
    N(Self);
  end;
end;

[ludovic tambour]

Salut

Merci pour ta réponse, mais ca va pas etre possible dans mon cas car cela nécessite de modifier le code a chaque fois qu'une nouvelle fonction est créée.

Ludo

[ludovic tambour]

Merci Reisubar.

Est-ce qu il y a l equivalent pour des procedures qui ne sont pas des methodes ?

Ludo

[Bloon]

Une solution : associer le nom de la procédure à son adresse. Exemple (avec un bouton et une listbox) :

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
procedure toto;
begin
  showMessage('toto');
end;
 
procedure titi;
begin
  showMessage('titi');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  listBox1.Items.AddObject('toto', TObject(@toto));
  listBox1.Items.AddObject('titi', TObject(@titi));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (listBox1.itemIndex > -1) then
    TProcedure(listBox1.Items.Objects[listBox1.itemIndex]);
end;

Mais ce n'est pas très objet comme démarche...

Bloon