Fichier Ini et Read Integer : Problème de lecture
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 :
Code:
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; |
Et la lecture de ce fichier :
Code:
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; |
La question que je me pose, c'est que mettre comme dernier paramètre à FichierConfig.ReadInteger.
J'ai triché pour les 2 autres integer, mais bon, ce n'est pas propre donc si vous voyez une erreur...
Merci ;)
