Bonjour,
G un avertissement qui me dit :Type non protége "ValeurDonnee"
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;
Que dois je faire :
Merci
Partager