Problème de classes, types, variables

Version imprimable

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

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:

Citation:

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

Code:

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.

16/08/2012, 17h43
Invité

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

Citation:

E2007 Constante ou identificateur de type attendu.
16/08/2012, 18h50
tourlourou
Code:

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 ?
16/08/2012, 19h33
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:

1 2 3 4 5 6 7 SetLength(TRUEBoolStrs, 1); TRUEBoolStrs[0] := 'Oui'; SetLength(FALSEBoolStrs, 1); FALSEBoolStrs[0] := 'Non'; ... Caption := BoolToStr(TRUE, TRUE);
16/08/2012, 19h44
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
17/08/2012, 07h56
Invité
Citation:
Envoyé par tourlourou

Code:

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 !!

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

Code:

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'
  );

17/08/2012, 14h13
Invité

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