Discussion :

[gsmdu62]

j'ai par exemple
un edit2 qui comporte le chemin d'un fichier je viens de selectionner avec un openialog1

je voudrais, avoir un fichier "config.ini" ou je peux:
1) enregister via une commande le texte contenu dans l'edit2
2) ouvrir via une commande le texte contenu dans l'edit2

a savoir, le fichier config.ini va comporter de nombreuses lignes car j'ai une dizaines d'edit 2 ainsi que des valeurs pour les Spin

merci par avance

[slimjoe]

j'ai par exemple
un edit2 qui comporte le chemin d'un fichier je viens de selectionner avec un openialog1

je voudrais, avoir un fichier "config.ini" ou je peux:
1) enregister via une commande le texte contenu dans l'edit2
2) ouvrir via une commande le texte contenu dans l'edit2

a savoir, le fichier config.ini va comporter de nombreuses lignes car j'ai une dizaines d'edit 2 ainsi que des valeurs pour les Spin

merci par avance

Salut!

Fais une recherche dans l'aide pour la classe TIniFile. C'est très facile à utiliser .

[gsmdu62]

mais c'est un composant ?

parce que moi j'ai commencé avec un fichier texte
+++++++++++++++++++++++++++++++++++++++++++++++++
procedure TForm2.bsSkinButton4Click(Sender: TObject);
var
fichier:textfile;
begin
assignfile(fichier ,'config.txt');
rewrite(fichier);
Writeln(fichier, '**************************************************');
Writeln(fichier, '***** fichier de configuration de Fast print *****');
Writeln(fichier, '**************************************************');
Writeln(fichier,' ');

flush(fichier);
closefile(fichier); //ferme le fichier
end;
++++++++++++++++++++++++++++++++++++++++++++++++++

[slimjoe]

mais c'est un composant ?

parce que moi j'ai commencé avec un fichier texte
+++++++++++++++++++++++++++++++++++++++++++++++++
procedure TForm2.bsSkinButton4Click(Sender: TObject);
var
fichier:textfile;
begin
assignfile(fichier ,'config.txt');
rewrite(fichier);
Writeln(fichier, '**************************************************');
Writeln(fichier, '***** fichier de configuration de Fast print *****');
Writeln(fichier, '**************************************************');
Writeln(fichier,' ');

flush(fichier);
closefile(fichier); //ferme le fichier
end;
++++++++++++++++++++++++++++++++++++++++++++++++++

C'est une classe.

Fais F1, y'a probablement un exemple pratique quelque soit la version de Delphi que tu utilises.

Le code pourrait ressembler à ceci (j'y vais de mémoire):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses
  IniFiles;
 
procedure LoadValues;
begin
   with TIniFile.Create('c:\configs.ini') do
   try
      Edit1.text := ReadString('SectionPrincipale', 'Valeur1', '');
   finally
      Free;
   end;
end;
 
procedure SaveValues;
begin
   with TIniFile.Create('c:\configs.ini') do
   try
      WriteString('SectionPrincipale', 'Valeur1', Edit1.text);
   finally
      Free;
   end;
end;

[gsmdu62]

apparement cela marche pour l'ecriture mais .........

with TIniFile.Create('c:\fastprint\fastprint.ini') do
try
WriteString('BMW', 'Valeur1', Edit1.text,);
finally
Free;

comment ajouter une deuxieme valeur dans le writestring

exemple, j'ai Bmw ensuite valeur1 ensuite j'ai le texte du edit1, mais je voudrais mettre le texte d'un edit 2 egalement pour bmw

ensuite, j'ai audi avec valeur1 edit 3 et edit 4

puis je remplacer la valeur1 par une de mes propres valeurs et la relire plus tard ?

[slimjoe]

Code :

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

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
procedure SaveValues;
begin
   with TIniFile.Create('c:\configs.ini') do
   try
      WriteString('BMW', 'ValeurDuEdit1', Edit1.text);
      WriteString('BMW', 'ValeurDuEdit2', Edit2.text);
      WriteString('BMW', 'ValeurDuEdit3', Edit3.text);
 
      WriteString('AUDI', 'ValeurDuEdit4', Edit4.text);
      WriteString('AUDI', 'ValeurDuEdit5', Edit5.text);
      WriteString('AUDI', 'ValeurDuEdit6', Edit6.text);
   finally
      Free;
   end;
end;
 
procedure LoadValues;
begin
   with TIniFile.Create('c:\configs.ini') do
   try
      Edit1.text := ReadString('BMW', 'ValeurDuEdit1', '');
      Edit2.text := ReadString('BMW', 'ValeurDuEdit2', '');
      Edit3.text := ReadString('BMW', 'ValeurDuEdit3', '');
 
      Edit4.text := ReadString('AUDI', 'ValeurDuEdit4', '');
      Edit5.text := ReadString('AUDI', 'ValeurDuEdit5', '');
      Edit6.text := ReadString('AUDI', 'ValeurDuEdit6', '');
   finally
      Free;
   end;
end;

[gsmdu62]

Genial !!!!

par contre, ce que je ne comprend pas c'est que mon appli plante.

en fait j'ai form1 et form2

form1 au demarrage doit charger le fichier ini dans le form2 pour que je puisse ensuite utiliser les données dans le form1 sans voir le form2

pour essayer d'etre plus clair, je lance l'appli (form1) mais la page d'ajout de donnée (configuration) est sous form2 mais je n'y accede que quand j'ai besoin de modifier une donnée

le probleme c'est que si j'implante ta structure dans le form2, ça roule, mais si je veux le faire dans le form1 ça plante !
je ne comprend vraiment pas pourquoi .

bon, excuse moi, je vais ronfler !!!!!!

Merci encore pour ton aide..........; a demain .....

bonne soirée !