القراءة من ملف INI لملئ Lisbox

[لؤي]

سلام الله عليكم

فرضا لدينا مكونين: Edit + Listbox

الكتابة في ملف INI تكون كالآتي :

PHP كود :

with tinifile.Create('Fichier.Ini') do
 begin
 writestring('Valeur_edit1','Edit1',Edit1.Text);
writestring('Valeur_Listbox1','Listbox1',listbox1.Items.Text);
     end 


و القراءة منه كالتالي في Edit :

PHP كود :

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


كيف تقرأ من ملف INI لملئ Listbox من جديد ؟

[Agmcz]

السلام عليكم

كود :

ListBox.Items.LoadFromFile('FileName');

[لؤي]

كود :

ListBox.Items.LoadFromFile('FileName');

مشكلة هذا الكود أن يحمل كل محتوى الملف بما فيها مايلي:

PHP كود :

[Valeur_edit1]
Edit1=
[Valeur_Listbox1] 


[لؤي]

داخل FormCreate

PHP كود :

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
end; 


أثناء الخروج

PHP كود :

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; 


شكرا