Discussion :

[louay02]

Bonjour

Je veux lire le contenue d’un Listbox à partir d’un fichier Inifile comment je peux le faire ?

Code :

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

1
2
3
4
5
6
7
with tinifile.Create('Voice.paramètre.Ini') do
begin
Edit1.text:=
readstring('Valeur_edit1','Edit1',Edit1.Text);
listbox1.Items.Text:=
readstring('Valeur_Listbox1','Listbox1',listbox1.Items.Text);
end

Merci

[mick605]

Salut

Alors, je vois 2 solutions :
Soit tu stocke dans ton fichier INI chaque item de ta listbox dans une ligne INI, c'est a dire que ton fichier ressemble a :

ListBox1Ligne1=Item1
ListBox1Ligne2=Item2
ListBox1Ligne3=Item3
...

Et la lecture se ferait :

Code :

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

1
2
3
4
5
with tinifile.Create('Voice.paramètre.Ini') do
begin
  for i:=1 to N do
    ListBox1.Add(readstring('ListBox1Ligne'+IntToStr(i),'Listbox1',''));
end

Sinon, tu stockes tout les items de ta listbox sur une seule ligne de ton fichier INI, et tu le lis en faisant :

Code :

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

1
2
3
4
with tinifile.Create('Voice.paramètre.Ini') do
begin
  ListBox1.CommaText:=readstring('ListBox1Items','Listbox1','');
end

Attention, les items doivent être séparés par des virgules, et entourés de " si ils contiennent des espaces. Tu peux écrire dans ton fichier en faisant

Code :

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

File.writestring('ListBox1Items','Listbox1',ListBox1.CommaText);

La méthode la plus simple reste la 2eme méthode.

Bonne chance

[louay02]

Code :

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

1
2
3
4
5
6
7
8
with tinifile.Create('Voice.paramètre.Ini') do
begin
  for i:=1 to N do
  begin
    readstring('ListBox1Ligne'+IntToStr(i),'Listbox1',Txt);
    ListBox1.Add(Txt);
  end;
end

------------

Code :

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

1
2
3
4
with tinifile.Create('Voice.paramètre.Ini') do
begin
  readstring('ListBox1Items','Listbox1',ListBox1.CommaText);
end

Code :

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

File.writestring('ListBox1Items','Listbox1',ListBox1.CommaText);

Merci ,mais dans l'écriture il doit envoyer le contenue de chaque composant vers l'origine (edit dans edit et listbox dans listbox)

Comme cela :

Code :

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

 Edit1.text:=readstring('Valeur_edit1','Edit1',Edit1.Text);

dans le code precedent ou vous envoyez leurs contenue(Listbox) ?

[louay02]

Dans la FormCreate

Code :

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

1
2
3
4
5
6
7
8
9
var Str1: String;
begin
Str1:=listbox1.Items.CommaText;
with tinifile.Create('Voice.paramètre.Ini') do
begin
Edit1.text:=readstring('Valeur_edit1','Edit1',Edit1.Text);
Str1 :=ReadString('Valeur_Listbox1', 'Listbox1', 'Empty');
listbox1.Items.CommaText := Str1;
end

et dans la Formclose

Code :

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

1
2
3
4
5
6
7
8
9
var Str1: String;
begin
Str1:=listbox1.Items.CommaText;
with tinifile.Create('Voice.paramètre.Ini') do
begin
writestring('Valeur_edit1','Edit1',Edit1.Text);
writestring('Valeur_Listbox1','Listbox1',Str1);
end
end;

Merci à vous

[mick605]

Dans ce cas, autant utiliser la deuxième réponse ... Tu avait déjà tout dans mon post (j'ai corrigé quelques erreurs) :

Lecture

Code :

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

ListBox1.CommaText:=File.readstring('ListBox1Items','Listbox1','');

Ecriture

Code :

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

File.writestring('ListBox1Items','Listbox1',ListBox1.CommaText);

[louay02]

c'est ça Merci mick605