Stocker les valeurs d'un Open Array

Bonjour,

J'affiche des messages avec une procedure du genre (en simplifiant) :

Code:

---

1 2	function AfficheMessage (const aMessageId : string; const aParams : array of const );

---

Le paramètre aParams est un tableau dynamique qui est passé à la fonction Format pour mettre en forme un message, après traduction.

Je voudrais qu'un bouton puisse appeler à nouveau Format, pour afficher le message traduit dans une autre langue.

Je vois bien comment stocker les données de aParams dans un tableau dynamique de Variants, mais comment pourrais-je les repasser ensuite à la fonction Format ? Elle demande un "array of const" que je ne sais pas recréer autrement qu'en le mettant dans les paramètres d'une fonction.

Auriez-vous une idée géniale ?

Je n'ai pas bien saisi ton problème mais il me semble qu'une simple concaténation de chaine devrait suffire

Code:

---

1 2 3 4

traduction=''; for i:=1 to nbparam do traduction:=traduction+aparams[i];

---

Effectivement, je n'ai pas du être assez clair...

Il faut que je puisse stocker en mémoire mon array of const, et/ou le reconstituer pour le repasser plus tard à la fonction format.

sous Delphi, l'unité Variants propose DynArrayToVariant()

Citation:

---

Envoyé par tintinux

Il faut que je puisse stocker en mémoire mon array of const, et/ou le reconstituer pour le repasser plus tard à la fonction format.

---

Que veux tu faire exactement dans la fonction format?
Je pose cette question car je pense qu'il serait plus simple de "ré écrire" la fonction Format.
Je pense à quelque chose de ce genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

chaine=''; pour chaque element du tableau aparam faire begin si type element= entier chaine:=chaine+format('%d',[element]); si type element= string chaine:=chaine+ element; si ....   end;

---