Discussion :

[Invité]

Bonjour,
Je suis en train de développer une application dans laquelle j'ai le bout de code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
unit UnitMyTypes;
 
interface
 
const
  MyBool: array [0..1] of String =
         (
         'False',
         'True'
         );
 
...
 
type
  ControlField = record
    cfBool: MyBool;
  end;

J'ai plein d'autres déclarations comme celle ci.

Lorsque je compile le project, j'ai le message d'erreur:

E2007 Constante ou identificateur de type attendu.

Pourriez-vous me dire où je fais une erreur ? Je ne trouve pas.

Merci d'avance,

Jérôme

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
type
  ControlField = record
    cfBool: // ici, il attend un type pour cfBool ; or MyBool est une constante
  end;

Il faut déclarer cfBool de type Booléen, string, entier ou celui qui te conviendra.

[Invité]

Ah mince, je ne peux pas utiliser une constante comme c'est écrit dans le message d'erreur ?

E2007 Constante ou identificateur de type attendu.

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
type
  TMyCfBool = array[0..1] of string;
 
const
  MyBool : TMyCfBool = ( 'False', 'True' );
 
type
  TControlField = record
    cfBool: TMyCfBool;
  end;

à tester, pour que le champ cfBool et la constante MyBool soient du même type et que le compilateur permette ensuite l'affectation TControlField.cfBool := MyBool;

Mais, à quel besoin précis cela répond-il ?

Est-il possible d'avoir l'affectation à une logique inverse ? Sinon, pourquoi ne pas seulement stocker 0 ou 1 qui serviront d'indice dans le tableau constant ?

[Andnotor]

A noter qu'il est aussi possible de modifier les variables TRUEBoolStrs et FALSEBoolStrs pour une utilisation avec BoolToStr (StrToBool) à travers toute l'application

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
  SetLength(TRUEBoolStrs, 1);
  TRUEBoolStrs[0] := 'Oui';
  SetLength(FALSEBoolStrs, 1);
  FALSEBoolStrs[0] := 'Non';
...
  Caption := BoolToStr(TRUE, TRUE);

[Invité]

Merci, je vais le tester demain.

En fait, je crée un programme pour décrypter une trame série capturée.
Le protocole utilisé est l'IEC 60870, pour info.
C'est un protocole pour lequel il existe des types, des sous types, des sous sous types... qui correspondent à des états donnés.

Il y a par exemple des codes fonction, de 1 à 127, pour lesquels je vais écrire la signification en dur dans le programme dans une liste.
La constante de type Array of string dans lequel je stocke ces textes.
J'appelle le texte selon l'index dans la liste.

J'ai peut être pris le mauvais exemple avec le booléen car il existe déjà comme tu l'as écrit plus haut.

Merci en tout cas.

Jérôme

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
type
  TMyCfBool = array[0..1] of string;
 
const
  MyBool : TMyCfBool = ( 'False', 'True' );
 
type
  TControlField = record
    cfBool: TMyCfBool;
  end;

à tester, pour que le champ cfBool et la constante MyBool soient du même type et que le compilateur permette ensuite l'affectation TControlField.cfBool := MyBool;

Mais, à quel besoin précis cela répond-il ?

Est-il possible d'avoir l'affectation à une logique inverse ? Sinon, pourquoi ne pas seulement stocker 0 ou 1 qui serviront d'indice dans le tableau constant ?

Cela fonctionne, merci !!

[Paul TOTH]

tu peux utiliser un type énuméré auquel tu associes un texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
type
  TEtat = (
   etat_online,
   etat_offline,
   etat_gere
  );
 
const
  NomEtat : array[TEtat] of string = (
   'online',
   'offline',
   'gere'
  );
 
  NomBool: array[Boolean] of string = (
   'False',
   'True'
  );

[Invité]

Ah oui, c'est pas mal comme ça aussi !
Merci Paul.