Retrouver la valeur d'une constante à partiede son nom

Signaler
Messages postés
2
Date d'inscription
mardi 29 août 2006
Statut
Membre
Dernière intervention
20 septembre 2006
-
Messages postés
3827
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
16 décembre 2021
-
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.

2 réponses

Messages postés
2
Date d'inscription
mardi 29 août 2006
Statut
Membre
Dernière intervention
20 septembre 2006

Merci, je regarde pour les constantes à partir de ce code ....
Messages postés
3827
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
16 décembre 2021
46
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