Lire/ecrire dans vos fichiers ini facilement

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 119 fois - Téléchargée 36 fois

Contenu du snippet

Voilà 2 petites fonctions simples pour garder dans un fichier INI la configuration de certains paramètres de vos programmes etc ...

Source / Exemple :


Function LerFichIni(FichIni:String; Section: String; rubrique: String): AnsiString;
Var
   IniF : TIniFile;
   Str  : AnsiString;
Begin
   IniF := TIniFile.Create(FichIni);
   Str  := IniF.ReadString(Section, Rubrique, '');
   IniF.free;
   RESULT := Str;
End;

Procedure EscreverFichIni(FichIni:String; Section: String; rubrique: String; NovoValor: AnsiString);
Var IniF : TIniFile;
Begin
  IniF := TIniFile.Create(FichIni);
  IniF.WriteString(Section, Rubrique, NovoValor);
  IniF.free;
End;

Conclusion :


Voilà c' est ma deuxieme contribution au site !
La prochaine fois je vous envoie quelques chose de plus interessant encore !
http://delphi-developer.planetaclix.pt (visitez ça vaut le coup !)

A voir également

Ajouter un commentaire Commentaire
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
3
On peut aussi surchargé la fonction d'ecriture pour la rendre compatible avec plusieurs types (c'est ce que je fait pour pouvoir utiliser des CheckBox ou des ComboBox) :

Procedure EscreverFichIni(FichIni:String; Section: String; rubrique: String; NovoValor: AnsiString); overload;
Procedure EscreverFichIni(FichIni:String; Section: String; rubrique: String; NovoValor: Integer); overload;
Procedure EscreverFichIni(FichIni:String; Section: String; rubrique: String; NovoValor: Boolean); overload;

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.