Discussion :

[artmicro]

bonjour,

je souhaite créer un tableau à 2 dimensions contenant des 'pointeurs' de fonctions.

j'aimerai faire cela :

Code :

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

1
2
3
4
5
6
 
foo : pFunction;
 
foo := arrayFunc[2][1] ;
 
foo(); { executer la fonction }

pouvez-vous m'aider à compléter mon besoin ?
Merci

[Nebulix]

Où est le problème ? (extrait de code perso qui marche)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
//définition
var maproc:array[1..24] of procedure(s:string);
 
//initialisation
maproc[1]:=pft;
maproc[2]:=.....
 
//utilisation
maproc[ord(sb[2])](sefb);

[artmicro]

Où est le problème ? (extrait de code perso qui marche)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
//définition
var maproc:array[1..24] of procedure(s:string);
 
//initialisation
maproc[1]:=pft;
maproc[2]:=.....
 
//utilisation
maproc[ord(sb[2])](sefb);

Le problème vient de mon manque de connaissance
Merci pour cet exemple.
Comment déclare-t-on le tableau pour utiliser des pointeurs de méthode au lieu de procédures ?

Merci d'avance...

[Andnotor]

Code :

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

array of procedure(aValue :string) of object

[artmicro]

Code :

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

array of procedure(aValue :string) of object

Merci pour la réactivité, et ça fonctionne très bien...

[Andnotor]

Quelque chose comme:

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
var
  MyFuncArray :array of procedure(aValue :string);
 
procedure Func1(aValue :string);
begin
  ...
end;
 
procedure Func2(aValue :string);
begin
  ...
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Initialisation
  SetLength(MyFuncArray, 2);
  MyFuncArray[0] := Func1;
  MyFuncArray[1] := Func2;
 
  //Appel
  MyFuncArray[0]('Func1');
  MyFuncArray[1]('Func2');
end;