tableau de fonctions à 2 dimensions

bonjour,

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

j'aimerai faire cela :

Code:

---

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

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

Code:

---

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);

---

Quelque chose comme:

Code:

---

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;

---

Citation:

---

Envoyé par Nebulix

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

Code:

---

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 :lol:
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...

Code:

---

array of procedure(aValue :string) of object

---

Citation:

---

Envoyé par Andnotor

Code:

---

array of procedure(aValue :string) of object

---

---

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