Réponse acceptée !
Bonjour
type
TDBCtrlGridBorder = (gbNone, gbRaised) ;
Donc pour pouvoir ecrire/lire une de ces 2 valeurs, il faut les typer.
var
Bord : TDBCtrlGridBorder ;
Bord := gbRaised ;
// Ecriture dans le fichier ini
FichierIni.WriteInteger ( Section,Ident,Integer(Bord) ) ;
// Lecture depuis le fichier ini : Integer(gbNone) étant la valeur par défaut.
Bord := TDBCtrlGridBorder ( FichierIni.ReadInteger ( Section,Ident,Integer(gbNone) ) ;
N.B. Ce qui serait judicieux c'est d'encadrer le code de lecture avec un try..except ou bien de filtrer la valeur contenue dans le fichier ini (Juste au cas où celle-ci ne serait pas correcte, c'est à dire non comprise entre 0=gbNone et 1=gbRaised )
Cordialement.
|