delphi4arab منتديات دلفي للعرب

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

فرضا لدينا مكونين: 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 من جديد ؟

السلام عليكم

كود :
ListBox.Items.LoadFromFile('FileName');

rami كتب :
كود :
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; 

شكرا

لؤي

Agmcz

لؤي

لؤي