Retrouver la valeur d'une constante à partiede son nom

Question

Bonjour,
Je pense que le titre est assez explicite, mais au cas où, voici un petit exemple.
Imaginons les constantes et les variables suivantes (je précise que je travailles sous Delphi 5) :

const

  titi = 'Bonjour';

  toto = 'Au revoir';

  tata = 'Merci';

var

  nom: String;

  valeur: String;

Est-il possible, si nom contient 'titi', de récupérer dans valeur'Bonjour' et comment faire ?
Juste une piste sur la fonction à utiliser me sera utile, merci.

gwenael_cef · Answer

Merci, je regarde pour les constantes à partir de ce code ....

Cirec · Answer

Salut,
pour faire cela il faut utiliser le Type : TIdentMapEntry de l'unité Classes :
type
  TIdentMapEntry =   record 
    Value: Integer;
    Name: String;
  end;

où Déclarer ton propre type :
type
  TMyIdentMapEntry  = record
    Value: String;
    Name: String;
  end;

Const
   Titi =  'Bonjour';
   Toto = 'Au Revoir';
   Tata = 'Merci';

MyConst :  Array [0..2] of TMyIdentMapEntry  =(
      (Value: Titi;        Name: 'Titi'),
      (Value: Toto;      Name: 'Toto'),
      (Value: Tata;      Name: 'Tata'));

Le reste est facile à mettre en place

@+
Cirec

Retrouver la valeur d'une constante à partiede son nom

2 réponses

Votre réponse

Discussions similaires