Conversion string -> type procedure

Version imprimable

11/05/2005, 11h51
ludovic tambour

Conversion string -> type procedure

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

Bonjour,

A prioris je ne sais pas.

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

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.

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

Code:

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;

11/05/2005, 13h50
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
11/05/2005, 13h53
ludovic tambour

Merci Reisubar.

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

Ludo

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

Code:

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