+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : القراءة من ملف INI لملئ Lisbox (/showthread.php?tid=3186)
القراءة من ملف INI لملئ Lisbox - لؤي - 14-06-2011
سلام الله عليكم
فرضا لدينا مكونين: 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 من جديد ؟
القراءة من ملف INI لملئ Lisbox - Agmcz - 14-06-2011
السلام عليكم
كود :
ListBox.Items.LoadFromFile('FileName');القراءة من ملف INI لملئ Lisbox - لؤي - 14-06-2011
rami كتب :كود :ListBox.Items.LoadFromFile('FileName');
مشكلة هذا الكود أن يحمل كل محتوى الملف بما فيها مايلي:
PHP كود :
[Valeur_edit1]
Edit1=
[Valeur_Listbox1]
القراءة من ملف INI لملئ Lisbox - لؤي - 14-06-2011
داخل 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;
شكرا