Réponse acceptée !
Bonjour Encore1ben,
Je te propose de regarder ce source :
Gestionnaire de fichiers de configuration.
L'unité SxConfiguration permet d'écrire puis lire un fichier de configuration.
Partie écriture ...
uses TSxConfiguration;
...
var Configuration, Famille, Animal: TSxConfiguration;
...
// Création de l'objet principal
Configuration := TSxConfiguration.Create;
// Création de l'objet famille chien et inscription des paramètres
Famille := TSxConfiguration.Create(Configuration);
Famille.Name := 'chien';
Animal := TSxConfiguration.Create(Famille);
Animal.Name := 'Poppy';
Animal.addValue('âge', 15);
Animal := TSxConfiguration.Create(Famille);
Animal.Name := 'Doudou';
Animal.addValue('âge', 99);
// Création de l'objet famille chat et inscription des paramètres
Famille := TSxConfiguration.Create(Configuration);
Famille.Name := 'chat';
Animal := TSxConfiguration.Create(Famille);
Animal.Name := 'Doris';
Animal.addValue('âge', 1);
// Création de l'objet famille zèbre et inscription des paramètres
Famille := TSxConfiguration.Create(Configuration);
Famille.Name := 'zèbre';
Animal := TSxConfiguration.Create(Famille);
Animal.Name := 'Kikou';
Animal.addValue('âge', 8);
...
// La sauvegarde
Configuration.SaveToFile('C:\Mon soft\cfg\configuration.cfg');
Partie lecture ...
uses TSxConfiguration;
...
var
Configuration, Famille, Animal: TSxConfiguration;
IndexFamille, IndexAnimal: Integer;
...
// Création de l'objet principal
Configuration := TSxConfiguration.Create;
// Lecture du fichier de configuration
Configuration.LoadFromToFile('C:\Mon soft\cfg\configuration.cfg');
...
for IndexFamille := 0 to Configuration.Count-1 do
begin
Famille := Configuration.Item[IndexFamille];
for IndexAnimal := 0 to Famille.Count-1 do
begin
Animal := Famille.Item[IndexAnimal];
// Famille.Name contient le nom de la famille (chien, chat ...)
// Animal.Name contient le nom de l'animal
// Animal.getValue('âge') contient l'âge de l'animal
end;
end;
Si tu souhaites plus de renseignements, n'hésites pas à me le faire savoir ...
sylvunix.