Discussion :

[sofiene abessi]

Bonjour

Je travaille sur une application ridigée en delphi contenant 4 listboxes aux quels on insère des dates de travail et de congés

mon souci est comment enregistrer le contenu des listboxes dans un fichier INI en appuyant sur le boutton save afin de le charger chaque fois en cas de modification

j'ai intégré dans le projet le composant TsaveDialog

une capture d'écran est fournie pour mieux exprimer mon problème

[ShaiLeTroll]

As-tu étudié la classe TIniFile et sa méthode WriteString ?

[sofiene abessi]

voila le code utilisé monsieur

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
32
33
34
35
36
37
38
39
40
41
42
43
procedure TForm1.Button5Click(Sender: TObject);
var
 
   key:string;
  ini:TInifile; // variable nécessaire
 
 
  var
  FS: TFileStream;
 // variable nécessaire
   // variables pour exemples
  procedure WriteItems(Items: TStrings);
  var
    MS: TMemoryStream;
    Size: Int64;
  begin
    MS := TMemoryStream.Create;
    try
      Items.SaveToStream(MS);
      Size := MS.Size;
      FS.WriteBuffer(Size, SizeOf(Size));
      FS.CopyFrom(MS, 0);
    finally
      MS.Free;
    end;
  end;
  begin
   SaveDialog1.InitialDir := 'C:\MyProjects';
 
  if SaveDialog1.Execute then
  begin
    FS := TFileStream.Create(SaveDialog1.FileName, fmCreate);
    try
      WriteItems(ListBox1.Items);
      WriteItems(ListBox2.Items);
      WriteItems(ListBox3.Items);
      WriteItems(ListBox4.Items);
    finally
      FS.Free;
    end;
  end;
 
  end;

[SergioMaster]

Bonjour et bienvenue,
prenez l'habitude d'indiquer la version de Delphi que vous utilisez ainsi que le framework (en quelque sorte la saveur) VCL ou FMX.

Code :

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

1
2
3
4
5
6
7
8
9
 
// RIO FMX
 if SaveDialog1.Execute then
  begin
    ListBox1.Items.SaveToFile(ReplaceStr(Savedialog1.FileName,'.','1.'));
    ListBox2.Items.SaveToFile(ReplaceStr(Savedialog1.FileName,'.','2.');
    ListBox3.Items.SaveToFile(ReplaceStr(Savedialog1.FileName,'.','3.');
    ListBox4.Items.SaveToFile(ReplaceStr(Savedialog1.FileName,'.','4.');
  end;

Bon, je m'excuse du fait que je fais ça à la "va vite" et que je n'ai pas vérifié exactement les noms de fichiers créés
Avantage de plusieurs fichiers : il est tout aussi facile de charger les listes : Listbox1.Items.LoadFromFile(nomfichier1.txt)

cela dit ce n'est pas dans un fichier INI

Si vous voulez écrire l'ensemble dans un fichier ini sachez que tout d'abord il faut une certaine structure et que les lignes sont sous la forme d'une paire nom=valeur

[Liste1]
ligne1 = xx/xx/xx
ligne2 = xx/xx/xx
[Liste2]
..
[Liste3]
...
[Liste4]

Voilà une proposition non vérifiée

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
use System.IniFiles
...
var F : TIniFile;
     i : integer; 
begin
if SaveDialog1.Execute then 
 begin
    F:=TIniFile.Create(SaveDialog1.FileName);
    try
      for i:=0 to liste1.Items.Count-1 do F.WriteString('Liste1',Format('ligne%d',[i]),Liste1.Items[i];
      for i:=0 to liste2.Items.Count-1 do F.WriteString('Liste2',Format('ligne%d',[i]),Liste1.Items[i];
      for i:=0 to liste3.Items.Count-1 do F.WriteString('Liste3',Format('ligne%d',[i]),Liste1.Items[i];
      for i:=0 to liste4.Items.Count-1 do F.WriteString('Liste4',Format('ligne%d',[i]),Liste1.Items[i];
    finally
       F.Free;
    end;
 end;    
 
 end;

[sofiene abessi]

merci mon ami c ce que je cherche

Mais comment peut-on charger le fichier ini pour remplir les listboxes?

j'ai utilisé le syntaxe suivant mais ça n'a pas marché

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button6Click(Sender: TObject);
var F : TIniFile;
     i : integer;
begin
 if opendialog1.Execute then
Opendialog1.InitialDir:='C:\MyProjects\';
 F.ReadString('Liste1',Format('ligne%d',[i]),listbox1.Items[i]);
 F.ReadString('Liste2',Format('ligne%d',[i]),listbox2.Items[i]);
 F.ReadString('Liste3',Format('ligne%d',[i]),listbox3.Items[i]);
 F.ReadString('Liste4',Format('ligne%d',[i]),listbox4.Items[i]);
end;

j'ai ce message d'erreur



merci infinémént pour votre aide

[SergioMaster]

Bonjour,

merci mon ami c'est ce que je cherche

Dans ces cas là, il est de bon usage d'utiliser le sous la discussion qui aide, cela donne des points dont je n'ai rien à faire mais surtout indique aux autres lecteurs la/les solution(s) retenue(s) ou ayant apporté une aide précieuse.

Je vous ai totalement aidé pour la sauvegarde mais pour l'inverse ce ne serait pas vous aider que de vous fournir la solution. Si vous ne le faites pas un peu par vous-même vous n'aurez rien appris.

Étudions votre code

Code :

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

1
2
3
4
5
procedure TForm1.Button6Click(Sender: TObject);
var F : TIniFile;
     i : integer;
begin
 if opendialog1.Execute then

jusque-là ça va

Code :

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

Opendialog1.InitialDir:='C:\MyProjects\';

à quoi cela peut bien servir puisque le dialogue d'ouverture à déjà été exécuté ?

Code :

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

 F.ReadString('Liste1',Format('ligne%d',[i]),listbox1.Items[i]);

Là, c'est du grand n'importe quoi !

• F n'est pas ouvert
• i n'est pas initialisé ce qui provoque la première erreur
• la syntaxe de readstring est fausse

Pistes de travail

• pour F vous avez déjà la syntaxe dans le code que vous avez recopié mais peut-être pas bien étudié
• pour i vous devez balayer chaque section de votre fichier ini et récupérer les éléments de celles-ci mais peut-être y a t'il une instruction simple ? Je vous invite à lire la FAQ pour y trouver la réponse. Ce devrait d'ailleurs être votre premier réflexe avant de soumettre une question
• pour la syntaxe la touche d'aide ou la documentation mais sera t-elle utile ?

[sofiene abessi]

j'ai consulté la FAQ mais mon problème persiste
j'ai ridigé le code suivant mais je n'ai pas pu le faire correctement

Code :

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

1
2
3
4
5
6
7
8
procedure TForm3.Button3Click(Sender: TObject);
var F: TInifile;
i:integer;
begin
if opendialog1.Execute then
 
   Listbox1.items:=F.ReadString('Liste1', '[i]',Listbox1.Items[i] );
end;

en suivant l'exemple du FAQ

Code :

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

Chaine:=FileIni.ReadString('Section Chaine', 'NomClé Chaine', 'Valeur par Défaut' );

merci

[Andnotor]

Code :

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

1
2
F := ?
i := ?

Et Listbox1.items est une classe TStrings, pas une chaîne.

[SergioMaster]

j'ai consulté la FAQ mais mon problème persiste

Hé bien vous avez mal lu https://delphi.developpez.com/faq/?p...un-fichier-ini

Code :

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

1
2
3
4
5
6
7
8
procedure TForm3.Button3Click(Sender: TObject);
var F: TInifile;
i:integer;
begin
if opendialog1.Execute then
// MAIS QUAND ALLEZ VOUS OUVRIR LE FICHIER .
   Listbox1.items:=F.ReadString('Liste1', '[i]',Listbox1.Items[i] ); // du grand n'importe quoi !
end;

[sofiene abessi]

enfin aprés une bonne concentration tout est réglé

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
32
33
34
35
procedure TForm1.Button6Click(Sender: TObject);
Var F  : TIniFile;
i:integer;
 
  CountItems: Integer;
begin
   SaveDialog1.InitialDir := 'C:\MyProjects';
 
 if opendialog1.Execute then
 
  begin
  F := TIniFile.Create(OpenDialog1.FileName);
    try
 
  CountItems := F.ReadInteger('Liste1', 'CountItems', 0);
      for i := 0 to CountItems - 1 do
        ListBox1.Items.Add(F.ReadString('Liste1', Format('ligne%d', [i]), ''));
 
      CountItems := F.ReadInteger('Liste2', 'CountItems', 0);
      for i := 0 to CountItems - 1 do
        ListBox2.Items.Add(F.ReadString('Liste2', Format('ligne%d', [i]), ''));
 
      CountItems := F.ReadInteger('Liste3', 'CountItems', 0);
      for i := 0 to CountItems - 1 do
        ListBox3.Items.Add(F.ReadString('Liste3', Format('ligne%d', [i]), ''));
 
      CountItems := F.ReadInteger('Liste4', 'CountItems', 0);
      for i := 0 to CountItems - 1 do
        ListBox4.Items.Add(F.ReadString('Liste4', Format('ligne%d', [i]), ''));
   finally
   F.Free;
   end;
  end;
 
end;

merci pour votre aide

Mais j'ai un autre souci c comment eviter d'avoir un item dans deux listboxes differents cad eviter d'avoir la meme date dans deux listboxes

[SergioMaster]

Bonjour,

ce qui aurait, je pense, pu être écrit ainsi (non testé)

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
procedure TForm1.Button6Click(Sender: TObject);
Var F  : TIniFile;
begin
   SaveDialog1.InitialDir := 'C:\MyProjects';
 
 if opendialog1.Execute then
 
  begin
  F := TIniFile.Create(OpenDialog1.FileName);
    try
       F.ReadSectionValues('Liste1',ListBox1.Items);
       F.ReadSectionValues('Liste2',ListBox2.Items);
       F.ReadSectionValues('Liste3',ListBox3.Items);
       F.ReadSectionValues('Liste4',ListBox4.Items);
   finally
     F.Free;
   end;
  end;
 
end;

comment eviter d'avoir un item dans deux listboxes differents cad eviter d'avoir la meme date dans deux listboxes

les Items sont contenus dans un TStrings donc, toutes les fonctions de cette classe sont disponibles. Dans celles-ci il y a IndexOf qui fourni la position d'une chaine dans la liste et renvoi -1 si la chaine n'existe pas.