Comment retrouver la valeur d'une constante dont le nom est sous forme de chaîne ?

Version imprimable

Bonjour,

Je recherche comment retrouver la valeur d'une constante dont le nom m'est passé en paramètre.

ex:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 resourcestring rs1 := 'mon texte 1'; rs2 := 'mon texte 2'; function mafunction(maConst : String):String begin result := //et c'est là ma question end procedure test; var resultat : string; begin resultat := maFunction('rs1'); end;
Merci pour votre aide..

Cerb

30/09/2005, 15h25
SubZero2

Si tu connai le nobre de parametre tu peux utiliser ParamStr(index)...

En sachant que ParamStr(0) est le nom de l'executable ... :wink:
30/09/2005, 15h29
cerberus

Merci pour ta réponse. mais ce n'est pas le sujet. :-(

Je ne parle pas de passage de paramètre à l'application, mais de récupération de valeur de constante dont le nom (de la constante ) est passé en paramètre.
30/09/2005, 15h34
SubZero2

Je ne doit pas bien tout comprendre la mais tu te complique lavie ...

Code:

MessageDlg(rs1, mtWarning, [mbOK], 0);
30/09/2005, 15h47
cerberus

Toujours pas le sujet. :-)

C'est parcque je n'utilise pas la valeur dans la méthode MessageDlg... mais pour autre chose.

Je veux récupérer des valeurs de resourcestring dans un autre environnement en appelant une methode de mon unité.

Salut,

et pourquoi pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
resourcestring 
 rs1 := 'mon texte 1'; 
 rs2 := 'mon texte 2'; 
 
function mafunction(maConst : String):String 
begin 
 
   if maConst='rs1' then result=rs1;
   if maConst='rs2' then result=rs2;
 
   ... etc...
 
end; 
 
procedure test; 
var resultat : string; 
begin 
  resultat := maFunction('rs1'); 
end;

cela dit si tu veux avoir une réponses exploitable il est préférable de donner TOUT l'ennoncé de ta question...

@+

30/09/2005, 16h44
cerberus

C'est une idée a retenir. Ca me dérange d'avoir a modifier la fonction a chaque ajout de resourceString (on a plus de 2000 resourceString), mais si on a pas le choix .... Merci

Pour le sujet du contexte, j'ai voulu faire abstraction des détails non significatifs pour éviter d'avoir une question qui fait trois pages et des réponses qui partent dans tout les sens.
30/09/2005, 16h58
cpdump

Si tu précisais exactement ton besoin, tu aurais des réponses plus adaptées.
30/09/2005, 18h09
e-ric

Salut

D'une façon générale, l'identifiant d'une constante n'a pas beaucoup d'intérêt pour le programme une fois compilé. Après la compilation, la constante devient soit une valeur littérale soit un pointeur sur une valeur contenue en mémoire.

En ce qui concerne les resourceString par contre si tu as un "fouineur de ressource" (je ne connais pas le vrai terme, j'utilise par exemple ResHack), tu verras que les noms de chaîne sont transformés en valeur numérique donc le nom est perdu.

Quel est ton besoin au juste ? on pourra peut-être te proposer une solution alternative (enfin s'il s'agit de ressource issues d 'un programme dont tu détiens les sources modifiables).

cdlt

e-ric

En utilisant des pChar à la place des strings ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
var
  Form1: TForm1;
 
resourcestring
  res1 = 'mon texte 1';
  res2 = 'mon texte 2';
 
implementation
 
{$R *.dfm}
 
function mafunction(maConst : pChar):String;
begin
  result := format('test: %s', [maConst]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(mafunction(pChar(res1)));
end;

Citation:

Envoyé par cpdump

Si tu précisais exactement ton besoin, tu aurais des réponses plus adaptées.

il suffit de lire le code donné dans le premier post pour comprendre le besoin ;-)

Si je peux me permettre de reformuler la question :

Comment récupérer le contenu d'une ressourcestring quand on a que son nom sous forme de CHAINE.
en gros comment faire de l'interprété...

Exemple :
Code:

1 2 3 4 RessourceStringRecherche := inputbox('Question','Nom de la chaine :',''); if RessourceStringRecherche<>'' then showmessage( 'La valeur de ' + RessourceStringRecherche + ' est : ' + #13 + maFunction(RessourceStringRecherche) );

30/09/2005, 20h04
cpdump

Citation:

Envoyé par RamDevTeam

il suffit de lire le code donné dans le premier post pour comprendre le besoin ;-)

Non, cela n'explique pas pourquoi il a besoin de cette fonctionnalité, si ça se trouve il est possible de contourner ce problème pour répondre à son vrai besoin.
30/09/2005, 20h23
edam

Et si tu passe par une base de donnée; ou même avec un tableau a deux champ (nom du string, valeur) que tu charge au début
Avec la base de donnée tu peut utilisé la puissance des SQL pour la recherche

c'est une idée, non :oops:
J’espère que Pierre Castelain n'est pas dans les parages :lun:
30/09/2005, 22h03
lil_jam63

La solution que je t'ai donné ci-dessus ne va pas? :roll:
01/10/2005, 11h03
e-ric

Salut

Je n'ai pas eu de retour sur ma réponse.
Est-ce qu'une itération sur les chaîne de ressource via un indice numérique ne pourrait pas faire ton affaire ?

cdlt

e-ric
03/10/2005, 08h45
cerberus

@e-ric:
Merci pour ton explication. Il semble que mon idée première va gentimment tomber à l'eau. Et comme tu l'as deviné, je ne répond que ce matin, puisque c'est au travail que j'utilise Delphi. Pour ton itération, ca peut se faire, mais comment trouver la ResourceString correspondant puisque l'on perd l'identifiant (res1) dans le fichier de ressource ?

@RamDevTeam:
Merci pour la reformulation, c'est exactement cela.

@lil_jam63:
Idée a creusée, je test cela un peu plus tard dans la journée mais je suis pesimiste. Lorsque tu passe ta chaîne à ta fonction, elle doit déjà être transformée (passage par valeur et pas par addresse ?)...ce qui ne joue pas dans mon cas(cf problème initial).

@cpdump:
Désolé de te décevoir, mais quand je vois les premières réponses que j'ai eu (malgé toute la bonne volonté des personnes qui répondent, et un entier respect pour elles), je préfère simplifier la question au début et voir les réponses simples. Si, comme c'est le cas dans ce topic, le problème s'amplifie ou devient complexe, je veux volontier donner toute l'info.

Citation:
Envoyé par RamDevTeam
Citation:

Envoyé par cpdump

Si tu précisais exactement ton besoin, tu aurais des réponses plus adaptées.

il suffit de lire le code donné dans le premier post pour comprendre le besoin ;-)

Si je peux me permettre de reformuler la question :

Comment récupérer le contenu d'une ressourcestring quand on a que son nom sous forme de CHAINE.
en gros comment faire de l'interprété...

Exemple :
Code:

1 2 3 4 RessourceStringRecherche := inputbox('Question','Nom de la chaine :',''); if RessourceStringRecherche<>'' then showmessage( 'La valeur de ' + RessourceStringRecherche + ' est : ' + #13 + maFunction(RessourceStringRecherche) );
J'avais compris le besoin tel qu'il était formulé. Mais je voulais savoir plus généralement quel était le but de sa demande afin éventuellement de lui proposer une autre approche car son problème, tel qu'il est initialement posé, n'a pas de solution à ma connaissance.

cdlt

e-ric

Citation:

J'avais compris le besoin tel qu'il était formulé. Mais je voulais savoir plus généralement quel était le but de sa demande afin éventuellement de lui proposer une autre approche car son problème, tel qu'il est initialement posé, n'a pas de solution à ma connaissance.

Je réagissait (sans aucune animosité) seulement sur les premières réponses qui était franchement à côté de la plaque ainsi qu'au post de cpdump

Citation:

Si tu précisais exactement ton besoin, tu aurais des réponses plus adaptées.

.

je pense qu'une réponse ressemblant à celle-ci dessous aurait-été plus adaptée :

Citation:

La fonction demandée n'est pas techniquement réalisable, car après compilation, les noms de constantes n'existe plus et sont remplacé par des nombres ou pointeurs . Peux tu donner plus de précision afin que l'on puisse te proposer une solution alternative

Concernant la question initiale, moi non plus, je ne vois pas de solution au problème initialement posé, et ton explication de la transformation de la constante après compilation me conforte dans mon idée.
Pour ma part, si je dois accéder à des chaines de texte non connus à la compilation, donc non connu par le programme. je ne vois que les solutions évoqués précédement :
- un tableau en mémoire, dans lequel on copie un fichier texte.
- une table d'une base de donnée (si l'application utilise une BD)
- ou un tstrings chargé au démarrage :

tu stocke la chaine compléte via le tableau Tstrings.objects[]
et tu récupére la valeur via Tstrings.indexof('MonIdentifiant');
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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 type Tkey = record Value : string; end; type PKey = ^Tkey; procedure SetKey(aItems : Tstrings; aKey : string; aTexte : string); function GetKeyStr(aItems : Tstrings; aItemIndex:integer ) : string; implementation procedure SetKey(aItems : Tstrings; aKey : variant; aTexte : string); var P : PKey; begin try new(P); p.Value := aKey; aItems.AddObject(aTexte, TObject(p)); except aItems.AddObject(aTexte, nil); end; end; function GetKeyStr(aItems : Tstrings; aItemIndex:integer ) : string; var P :Pkey; begin Result := ''; try if aItemIndex=-1 then begin result := ''; p := nil; end else P := Pkey(aItems.Objects[aItemIndex]); except P:=nil; end; if p<> nil then Result := p.Value; end;
pour stocker :

Code:

SetKey( items, 'res1', 'Résultat 1');

pour récupérer :
Code:

1 2 Showmessage( GetKey( items, items.indexof(StrValue) ));