Discussion :

[rvzip64]

salut tout le monde voils la probleme que j'ai

j'ai le type suivant :

Code :

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

  TType3etats=(TEtatOuvert,TEtatFerme,TEtatPasAction);

et je voudrais faire un type qui "hérite" du premier sans qu 'il y ai l'état TEtatPasAction.

Comment faire??

[Cl@udius]

Salut

Question bête, qu'est-ce qui t'empêche de créer un 2° type ?

Code :

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

1
2
 
  TType2etats=(TEtatOuvert,TEtatFerme);

@+ Claudius

[rvzip64]

Je ne peux pas le faire uniquement parceque le compilateur me dit que l'identificateur est redéclaré.

Code :

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

1
2
3
 
TType3etats=(TEtatOuvert,TEtatFerme,TEtatPasAction);
TType2etats=(TEtatOuvert,TEtatFerme);

Message du complio:

Identificateur redéclaré : 'TEtatOuvert'
Identificateur redéclaré : 'TEtatFerme'
Type incompatibles : 'TType3etats' et 'TType2etats'

[Jipété]

Salut !

Et comme ça :

Code :

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

1
2
3
type
  TType2etats=(TEtatOuvert,TEtatFerme);
  TType3etats=(Type2Etats,TEtatPasAction);

Pas d'erreur de compil.
Mes 2 cts,
--
jp

[Cl@udius]

Pas d'erreur de compil.

Moi j'ai une erreur de compilation !!! Ce qui me parait logique d'ailleurs.

@+

[Jipété]

Moi j'ai une erreur de compilation !!!

Comprenne qui peut... (D7 perso)
Ceci étant, j'étais circonspect quant à ma réponse : me demande s'il n'y aurait pas déjà un problème de déclaration de ses types primaires, TEtatOuvert, etc.
À voir...
--
jp

[sjrd]

Si les états de T2Etats ont vraiment le même sens que leurs correspondants dans T3Etats, tu peux faire ceci :

Code :

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

1
2
3
type
  T3Etats = (EtatOff, EtatOn, EtatAucun);
  T2Etats = EtatOff..EtatOn;

J'ai pas vérifié au compilo mais je pense bien que ça devrait fonctionner.

Sinon, s'ils n'ont pas la même significations : change de nom C'est plus logique, plus lisible, et... Ca fonctionne

[Cl@udius]

J'ai pas vérifié au compilo mais je pense bien que ça devrait fonctionner.

Ca compile sans problème, et les limites d'étendu sont respectées. Gagné !

@+ Claudius

[Jipété]

'Soir !

Oui, ça compile aussi, mais j'aimerais bien qu'on m'explique (je ne veux pas mourir idiot, ) : quand on se déclare un type perso, il va contenir des trucs qui doivent bien être d'un certain type, déjà connu, non ?
Et d'où est-ce qu'il connait EtatOff, EtatOn, et EtatAucun, le compilo ?

Merdum, un truc m'échappe, merci d'éclairer ma lanterne,
--
jp

[Eric Boisvert]

on aurrait pu ecrire aussi

Code :

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

1
2
3
 
  T3Etats = set of (EtatOff, EtatOn, EtatAucun);
  T2Etats = EtatOff..EtatOn;

F1 sur le mot sets pour des explications...

J'ai l'impression que le compilateur remplace les mots qu'on utilise par des
chiffres...(0 à 255) ca devient alors pour les humains que nous sommes
plus sympatique de travailler avec EtatOff, EtatOn, et EtatAucun qu'avec 0,1 et 2...

[Jipété]

Bon sang mais c'était bien sûr !
Merci, Éric.
--
jp

[sjrd]

on aurrait pu ecrire aussi

Code :

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

1
2
3
 
  T3Etats = set of (EtatOff, EtatOn, EtatAucun);
  T2Etats = EtatOff..EtatOn;

Non, ça n'est pas la même chose ! Ici tu déclares T3Etats comme un ensemble. Alors qu'on veut une simple énumération

[Eric Boisvert]

Non, ça n'est pas la même chose ! Ici tu déclares T3Etats comme un ensemble. Alors qu'on veut une simple énumération

+1 sjrd
il y a effectivement une bonne différence entre les deux!
Je suis aller un peu vite pour celle là! Désolé!

À titre d'exemple, avec cette declaration:

Code :

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

1
2
 
T3Etats = set of (EtatOff, EtatOn, EtatAucun);

une variable défini comme T3Etat pourait être à la fois EtatOff et EtatOn

Code :

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

1
2
3
4
5
 
var
 Test:T3Etats;
begin
 Test:=[EtatOff, EtatOn];

et ce qui n'est sûrment pas l'éffet voulu ici.

[LadyWasky]

pour comprendre le code de sjrd :

Un exemple faux, mais qui aide

Code :

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

1
2
3
type 
            byte=(0,1,2,3,4,5,6,7,8,...,252,253,254,255); //tous les chiffres d'un byte sont déclarés en même temps que le type lui même
            pourcent=0..100; //réutilisation de ce qui à déjà été déclaré

Autre exemple :

Code :

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

1
2
3
type 
            semaine=(Lundi,Mardi,Mercredi,Jeudi,Vendredi,Samedi, Dimanche); //les chiffres sont déclarés en même temps que le type byte
            WeekEnd=Samedi..Dimanche; //réutilisation de ce qui à déjà été déclaré

[rvzip64]

Okc 'est parfait je vous remercie a tous.

[anapurna]

salut

tu as d'autre possibilite
par exemple tu peut utiliser ton enumeration

Code :

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

TType3etats=(TEtatOuvert,TEtatFerme,TEtatPasAction);

et le transformer en ensemble

Code :

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

TTypEtats = set of TType3etats

une fois tes ensemble former tu peut y retirer ou y incluer des elements preexistant

exemple

Code :

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

1
2
3
 Exclude(TTypEtats,TEtatPasAction);
... 
 include(TTypEtats,TEtatPasAction);

@+ Phil