Bonjour,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
type
        TTypeDonnees = (AlphaNum,Numerique,Entier,DateHeure,DateSeule,HeureSeule);
 
        ValeurDonnee = Record
          Case TypeDonnees: TTypeDonnees of
              AlphaNum : (Chaine: ShortString);
              Numerique : (Nombre: Real);
              Entier : (Entier: Integer);
              DateHeure : (LaDateComplete: TDateTime);
              DateSeule : (LaDate: TDateTime);
              HeureSeule : (LHeure: TDateTime);
          End;
G un avertissement qui me dit :Type non protége "ValeurDonnee"

Que dois je faire :
Merci