[Lazarus] Stocker les valeurs d'un Open Array

[tintinux]

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 ?

[Gouyon]

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

[tintinux]

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.

[Paul TOTH]

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

[Gouyon]

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;