Discussion :

[CleeM]

Bonjour!

J'ai créer un compteur pour une petite apply perso'.

Mais à chaque fois que je relance mon programme, ce compteur se réinitialise à 0. =/

Comment empêcher sa (sans BDD)?

Merci d'avance! ^^

[SergioMaster]

en stockant la valeur dans le registre ou un fichier ini , xml etc ...

[CleeM]

Ola merci, mais alors là je ne sais pas du tout comment faire! =/

Petite explication possible? =D

[ShaiLeTroll]

Pour le Ini,

dans ton programme, par exemple directement dans le DPR ou dans le OnCreate de ta MainForm, ou encore dans une section Initialize ...

tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonCompteur := MonObjetIni.ReadInteger('Section', 'MonCompteur', 0);

en fin, dans le DPR, dans le OnDestroy de ta MainForm, ou section Finalize

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MonObjetIni.WriteInteger('Section', 'MonCompteur', MonCompteur);

Et je dirais même plus, mais risque de lenteur, à chaque incrémentation de ton Compteur, tu enregistre cette valeur ...

En base de Registre, euh, cela risque de la faire gonfler pour rien (pas de modif mais historisation des clés non ?)
en XML, juste parce que le XML c'est un format à la mode, le ini c'est bien suffisant, et l'un ou l'autre, n'assuront pas de robutesse de la donnée de toute façon ...

[CleeM]

Merci beaucoup le troll, mais j'aimerais juste savoir à quoi correspond ce qui est entre parenthèses dans le ReadInteger : Section, MonCompteur (là c'est le nom de mon compteur j'imagine), et le 0???.

Et pour le nom de mon fichier .ini, comment dois-je le déclaré dans mes variables?

PS: Je l'ai mis dans la procédure OnCreate de ma MainForm (en fait il n'y en a qu'une :p).

[ShaiLeTroll]

Regarde l'Objet TIniFile, tout est expliqué dans l'aide

sinon tient, une fonction wrapper ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function ReadStringIni(Section, Ident, Default: String): String;
var
   TmpIniFile: TIniFile;
begin
     // Ecriture du fichier Ini
     TmpIniFile:= TIniFile.Create(gCurrentIniPath + SERVEUR_INI);
     try
        // Rubrique, Clé, Valeur
        Result := TmpIniFile.ReadString(Section, Ident, Default);
     finally
            TmpIniFile.Free();
     end;
end;