FichierINI : écrire simplement une section

Bonjour
J'utilise un fichier ini pour paramétrer mes applications.

Je cherche à ajouter simplement des sections.

J'ai bien vu que dans le code de l'unité System.IniFile , il y a une méthode AddSection qui fait exactement de que j'ai besoin.
Or cette méthode est déclarée privée au niveau de TMemIniFile.

Code:

---

1 2 3 4 5 6 7 8 9

TMemIniFile = class(TCustomIniFile) private FSections: TStringList; FEncoding: TEncoding; function AddSection(const Section: string): TStrings; function GetCaseSensitive: Boolean; procedure LoadValues; procedure SetCaseSensitive(Value: Boolean);

---

Comment faire pour la rendre public et donc accessible ?

Merci pour votre aide.

Utiliser l’API publique existante

tu n’as pas besoin d’appeler AddSection directement. Tu peux créer une section en écrivant une valeur fictive

Code:

---

1 2 3 4 5 6 7

var Ini: TMemIniFile; begin Ini := TMemIniFile.Create('config.ini'); Ini.WriteString('NouvelleSection', 'DummyKey', ''); Ini.UpdateFile; end;

---

Cela crée automatiquement la section NouvelleSection dans ton fichier INI, même si elle ne contient qu’une clé vide.

Après Ini.UpdateFile, le fichier config.ini contiendra :

Code:

---

1 2	[NouvelleSection] DummyKey=

---

Si tu veux une section totalement vide (sans clé), ce n’est pas possible directement avec l’API standard, car une section est toujours créée via une clé.
Pour contourner ça, tu peux écrire une clé temporaire puis la supprimer manuellement du fichier si nécessaire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var Ini: TMemIniFile; begin Ini := TMemIniFile.Create('config.ini'); try // Création de la section avec une clé fictive Ini.WriteString('NouvelleSection', 'DummyKey', '');   // Suppression immédiate de la clé fictive Ini.DeleteKey('NouvelleSection', 'DummyKey');   // Écriture sur disque Ini.UpdateFile; finally Ini.Free; end; end;

---

Résultat dans ton fichier INI :

Code:

---

[NouvelleSection]

---

Tu obtiens bien une section vide, sans clé. ;)

Bonjour,

Il serait important d'indiquer de quelle version de Delphi il s'agit car D13 n'a pas function AddSection(const Section: string): TStrings;Les sections sont désormais contenus dans un type privé TDictionaryList = class (TObject) re-typé ainsi TSections = class (TDictionaryList) et déclaré comme une propriété privée toujours FSections: TSectionsConclusion, rendre ça accessible me paraît mal barré. J'avais pensé à un class helper (là encore la version de Delphi joue un rôle) ou à un "classique" hack de la classe mais le fait que les types soient eux aussi privés me laissent douter

Bonjour,
Merci pour tes réponses.
Ce que je cherche a obtenir est ceci :

Code:

---

1 2 3 4 5

[SITE] SITE_01 SITE_02 SITE_03

---

J'ai deux pistes à creuser :
1. créer un TMyMemeIniFile qui hérite de TMeminiFile et essayer de rendre public la fonction AddSection
2. dupliquer l'unité System.IniFiles , la renommer en MyIniFiles, et modifier la portée de AddSection de private en public

Si vosu avez d'autres pistes, je suis preneur

Citation:

---

Envoyé par SergioMaster

Bonjour,

Il serait important d'indiquer de quelle version de Delphi il s'agit car D13 n'a pas function AddSection(const Section: string): TStrings;Les sections sont désormais contenus dans un type privé TDictionaryList = class (TObject) re-typé ainsi TSections = class (TDictionaryList) et déclaré comme une propriété privée toujours FSections: TSectionsConclusion, rendre ça accessible me paraît mal barré. J'avais pensé à un class helper (là encore la version de Delphi joue un rôle) ou à un "classique" hack de la classe mais le fait que les types soient eux aussi privés me laissent douter

---

Bonjour SergioMaster, je suis en Delphi XE6
Merci pour votre réponse

Citation:

---

Envoyé par SergioMaster

J'avais pensé à un class helper [...] mais le fait que les types soient eux aussi privés me laissent douter

---

En fait une faille béante est apparue avec les assistants de classe permettant l'accès à tous les membres d'une classe depuis une autre unité, qu'ils soient protected ou private. Il suffit de faire précéder le code par une ligne qui semble tout à fait inutile à première vue : with Self do.

Dès lors on pourrait procéder ainsi pour l'ajout d'une section vide à un TMemIniFile :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

type TMemIniFileHelper = class helper for TMemIniFile procedure AddSection(const aName: string); end;   procedure TMemIniFileHelper.AddSection(const aName: string); begin with Self do if FSections.Find(aName) = nil then FSections.Add(aName); end;

---

C'est évidemment extrêmement dangereux puisqu'on passe outre les encapsulations, mais ça peut dépanner dans certains cas.

C'est d'ailleurs ainsi que j'ai procédé dans l'unité Debug.SvcMgr (Déboguer un service depuis l'EDI) pour le démarrage du service. Je pensais que ça soulèverait des questions... mais non ;)

Citation:

---

Envoyé par Andnotor

En fait une faille béante est apparue avec les assistants de classe permettant l'accès à tous les membres d'une classe depuis une autre unité, qu'ils soient protected ou private. Il suffit de faire précéder le code par une ligne qui semble tout à fait inutile à première vue : with Self do.

Dès lors on pourrait procéder ainsi pour l'ajout d'une section vide à un TMemIniFile :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

type TMemIniFileHelper = class helper for TMemIniFile procedure AddSection(const aName: string); end;   procedure TMemIniFileHelper.AddSection(const aName: string); begin with Self do if FSections.Find(aName) = nil then FSections.Add(aName); end;

---

C'est évidemment extrêmement dangereux puisqu'on passe outre les encapsulations, mais ça peut dépanner dans certains cas.

C'est d'ailleurs ainsi que j'ai procédé dans l'unité Debug.SvcMgr (Déboguer un service depuis l'EDI) pour le démarrage du service. Je pensais que ça soulèverait des questions... mais non ;)

---

Bonjour,
Merci pur cette solution, je vasi regarder cela de plus près

Code:

---

1 2 3 4

[SITE] SITE_01 SITE_02 SITE_03

---

Ce n'est plus un fichier ini dans ce cas qui est par définition une clé valeur
Au mieux

Code:

---

1 2 3 4

[SITE] SITE_01= SITE_02= SITE_03=

---

Suffit de faire le premier WriteString('SITE', 'SITE_01', '') pour créer la section, voir la réponse détaillée de XeGregory

Peut-être passer à un XML ou un JSON pour stocker des informations structurées au lieu d'un fichier que l'on devine déjà devenir :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

[SITE] SITE_01= SITE_02= SITE_03=   [SITE_01] TOTO=TATA   [SITE_02] TOTO=TITI   [SITE_03] TOTO=TUTU

---

Citation:

---

Envoyé par ShaiLeTroll

Code:

---

1 2 3 4

[SITE] SITE_01 SITE_02 SITE_03

---

Ce n'est plus un fichier ini dans ce cas qui est par définition une clé valeur
Au mieux

Code:

---

1 2 3 4

[SITE] SITE_01= SITE_02= SITE_03=

---

Suffit de faire le premier WriteString('SITE', 'SITE_01', '') pour créer la section, voir la réponse détaillée de XeGregory

Peut-être passer à un XML ou un JSON pour stocker des informations structurées au lieu d'un fichier que l'on devine déjà devenir :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

[SITE] SITE_01= SITE_02= SITE_03=   [SITE_01] TOTO=TATA   [SITE_02] TOTO=TITI   [SITE_03] TOTO=TUTU

---

---

ShaïLeTroll, tu as lu dans mes pensées ?
Oui effectivement, le fichier est structuré.
Mais par simple flemme, je n'avais pas envie de passer par un fichier XML ou JSON
Je sais ce qu'il me reste à faire => OK je sors !!!!!

Les inifiles sont obsolètes vaut mieux créer son propre format de sauvegarde surtout que infile n'autorise pas pas les sous-sections
Si des données sont complexes tu peux les organiser sous ce format :
Ex les menus de Notepad++

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169

[Fichier] &Nouveau Ctrl+N &Ouvrir... Ctrl+O Ouvrir dans l'application par défaut Ouvrir le Dossier en tant qu'Espace de travail Recharger depuis le disque Ctrl+R &Enregistrer Ctrl+S Enregistrer &sous... Ctrl+Alt+S Enregistrer une copie... En&registrer tout Ctrl+Shift+S Renommer... Fermer Ctrl+W Fermer tout Ctrl+Shift+W Supprimer Charger une session... Enregistrer la session... Imprimer... Ctrl+P Imprimer immédiatement Ouvrir le dernier fichier fermé Ctrl+Shift+T Ouvrir tous les fichiers récents Vider la liste des fichiers récents &Quitter Alt+F4   [Fichier\Ouvrir le répertoire du fichier en cours] Explorateur Windows Invite de commande (cmd) Dossier en tant qu'espace de travail   [Fichier\Fermer +] Fermer tout sauf le document actuel Fermer tout à gauche Fermer tout à droite Fermer tous les documents non-modifiés   [Édition] &Annuler Ctrl+Z or Alt+Backspace &Rétablir Ctrl+Y or Ctrl+Shift+Z Cou&per Ctrl+X or Shift+DEL &Copier Ctrl+C or Ctrl+INS &Coller Ctrl+V or Shift+INS &Supprimer DEL Sélectionner t&out Ctrl+A Début/Fin Sélection Sélection en mode colonne... Édition en mode colonnes... Alt+C Panneau des caractères ASCII Panneau historique du presse-papiers Lecture seule pour le document actuel Enlever l'attribut de lecture seule du fichier   [Édition\Insertion] La date et l'heure (format court) La date et l'heure (format long) La date et l'heure (format personnalisé)   [Édition\Copier dans le presse-papiers] Copier le chemin complet du document actuel Copier le nom du document actuel Copier le dossier du document actuel All Filenames to Clipboard All File Paths to Clipboard   [Édition\Indentation] Augmenter l’indentation Réduire l’indentation   [Édition\MAJUSCULE/minuscule] EN MAJUSCULE Ctrl+Shift+U en minuscule Ctrl+U Majuscules Dans Les Titres Alt+U Majuscules Dans Les Titres (moins strict) Alt+Shift+U Majuscule en début de phrase Ctrl+Alt+U Majuscule en début de phrase (moins strict) Ctrl+Alt+Shift+U à L'ENVERS aLÉATOirE   [Édition\Ligne] Dupliquer la ligne actuelle Ctrl+D Supprimer les lignes en double Supprimer les lignes en double consécutives Séparer en plusieurs lignes Ctrl+I Joindre plusieurs lignes Ctrl+J Déplacer la ligne actuelle vers le haut Ctrl+Shift+Up Déplacer la ligne actuelle vers le bas Ctrl+Shift+Down Enlever les lignes vides Enlever les lignes vides (contenant les blancs aussi) Insérer une ligne vide avant la ligne courante Ctrl+Alt+Enter Insérer une ligne vide après la ligne courante Ctrl+Alt+Shift+E Inverser l'ordre des lignes Trier aléatoirement les lignes Trier les lignes dans l'ordre lexicographique croissant Trier les lignes dans l'ordre lexico. croissant en ignorant la Trier les lignes dans l'ordre d'entier croissant Trier les lignes dans l'ordre décimal (virgule) croissant Trier les lignes dans l'ordre décimal (point) croissant Trier les lignes dans l'ordre lexicographique décroissant Trier les lignes dans l'ordre lexico. décroissant en ignorant l Trier les lignes dans l'ordre d'entier décroissant Trier les lignes dans l'ordre décimal (virgule) décroissant Trier les lignes dans l'ordre décimal (point) décroissant   [Édition\Commentaire] Commenter/Décommenter (mode ligne) Ctrl+Q Commenter (mode ligne) Ctrl+K Décommenter (mode ligne) Ctrl+Shift+K Commenter le bloc sélectionné Ctrl+Shift+Q Décommenter le bloc sélectionné   [Édition\Autocomplétion] Complétion de fonction Ctrl+Spacebar Complétion de mot Ctrl+Enter Infobulle des paramètres de fonctions Ctrl+Shift+Spacebar Complétion de chemin d'accès du fichier Ctrl+Alt+Spacebar   [Édition\Convertir les sauts de ligne] Convertir en format Windows (CR+LF) Convertir en format UNIX (LF) Convertir en format Mac (CR)   [Édition\Traitement des espacements] Enlever les blancs en fin de ligne Enlever les blancs en début de ligne Enlever les blancs en début et fin de ligne Transformer les fins de ligne en espaces Supprimer les espacements et fins de ligne inutiles Transformer les tabulations en espaces Transformer tous les espaces en tabulations Transformer les espaces de début de ligne en tabulations   [Édition\Collage spécial] Coller du contenu HTML Coller du contenu RTF Copier du contenu Binaire Couper du contenu Binaire Coller du contenu Binaire   [Édition\Pour la sélection] Ouverture du fichier Ouvrir le répertoire dans l'explorateur Rechercher sur Internet Changer le moteur de recherche...   [Recherche] &Rechercher... Ctrl+F Rechercher dans les sous-dossiers Ctrl+Shift+F Recherche &suivante F3 Recherche précédente Shift+F3 Sélection et recherche suivante Ctrl+F3 Sélection et recherche précédente Ctrl+Shift+F3 Recherche volatile suivante Ctrl+Alt+F3 Recherche volatile précédente Ctrl+Alt+Shift+F3 Remplacer... Ctrl+H Recherche &incrémentielle... Ctrl+Alt+I Fenêtre des résultats de recherche F7 Résultat de recherche suivant F4 Résultat de recherche précédent Shift+F4 Atteindre... Ctrl+G Aller au délimiteur symétrique Ctrl+B Sélectionner tout entre les 2 accolades Ctrl+Alt+B Marquer... Ctrl+M Rechercher des caractères dans une plage...   [Recherche\Marquer tout] Appliquer le style 1 Appliquer le style 2 Appliquer le style 3 Appliquer le style 4 Appliquer le style 5 ...

---