Bonsoir,
Je suis entrain de créer un fichier ini et j'ai un problème lors de la lecture d'un integer.
J'enregistre dans ce fichier ini diverse valeur et je bloque sur les integer.
Ici j'enregistre 3 integer dont un qui est un TColor .
Voilà le code de création du fichier ini :
Et la lecture de ce fichier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 procedure TFConfiguration.BtnValiderClick(Sender: TObject); begin LargeurEntite:=StrToInt(EdLargeurEntite.Text); HauteurEntite:=StrToInt(EdHauteurEntite.Text); FichierConfig:= Tinifile.Create(RepertoireConfig); FichierConfig.WriteInteger('Entité', 'Largeur', LargeurEntite); FichierConfig.WriteInteger('Entité', 'Hauteur', HauteurEntite); FichierConfig.WriteInteger('Entité','Couleur de la bordure',PanelCouleurBordureEntite.Color); FichierConfig.Free; FConfiguration.Close; end;
La question que je me pose, c'est que mettre comme dernier paramètre à FichierConfig.ReadInteger.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 If (FileExists(RepertoireConfig)) then begin FichierConfig:= Tinifile.Create(RepertoireConfig); LargeurEntite:=StrToInt(FichierConfig.ReadString('Entité','Largeur','')); HauteurEntite:=StrToInt(FichierConfig.ReadString('Entité','Hauteur','')); CouleurBordureEntite:=FichierConfig.ReadInteger('Entité','Couleur de la bordure',0); FichierConfig.Free; end;
J'ai triché pour les 2 autres integer, mais bon, ce n'est pas propre donc si vous voyez une erreur...
Merci![]()
Partager