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

[لؤي]

داخل 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; 


شكرا