نبذة عن ملفات الإيني ini. files ؟

[AL-MOB4RM3G]

السلام عليكم ورحمة الله

ما هو الذي يفرق اليني عن ال DLL مثلا
كما اعلم والله اعلم انه يمكن التغيّر في ملفات الإيني متى شاء المستخدم على عكس ملفات ال Dll... فهل هذا صحيح ؟
طيب كيف نتعامل مع ملفات الإني وكيف نكتبها ؟
والسلام عليكم

[TF6M]

بالتوفيق,,

[AL-MOB4RM3G]

نعم اخي...
في الحقيقة درس روعة ما شاء الله...
درس كافي ووافي ولله الحمد...

اشكرك كثيرا اخي ...
وإن شاء الله سأستخدم هذه الخاصية في برنامجي الذي القوم ببرمجته...

بارك الله فيكم مرة اخرى...

[me_delphi]

tf6mehboul المنتدى في حاجة لمثل هده الدروس

أفرغ ما في جعبتك

[TF6M]

إن شاء الله

للأسف هده فترة إمتخانات و أنا جد متأخر؟

[kachwahed]

السلام عليكم
هذا شرح مختصر لطريقة استعمال ملفات INI (الشرح لـ Simon Grossenbacher ) أظنه مناسب.

PHP كود :

{
  An INI file stores information in logical groupings, called “sections.”
  Within each section, actual data values are stored in named keys.
  
  [Section_Name]
  Key_Name1=Value1
  Key_Name2=Value2
  
}

uses
  IniFiles;

// Write values to a INI file

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
begin
  // Create INI Object and open or create file test.ini
  ini := TIniFile.Create('c:\MyIni.ini');
  try
    // Write a string value to the INI file.
    ini.WriteString('Section_Name', 'Key_Name', 'String Value');
    // Write a integer value to the INI file.
    ini.WriteInteger('Section_Name', 'Key_Name', 2002);
    // Write a boolean value to the INI file.
    ini.WriteBool('Section_Name', 'Key_Name', True);
  finally
    ini.Free;
  end;
end;


// Read values from an INI file

procedure TForm1.Button2Click(Sender: TObject);
var
  ini: TIniFile;
  res: string;
begin
  // Create INI Object and open or create file test.ini
  ini := TIniFile.Create('c:\MyIni.ini');
  try
    res := ini.ReadString('Section_Name', 'Key_Name', 'default value');
    MessageDlg('Value of Section:  ' + res, mtInformation, [mbOK], 0);
  finally
    ini.Free;
  end;
end;

// Read all sections

procedure TForm1.Button3Click(Sender: TObject);
var 
  ini: TIniFile;
begin
  ListBox1.Clear;
  ini := TIniFile.Create('MyIni.ini');
  try
    ini.ReadSections(listBox1.Items);
  finally 
    ini.Free; 
  end;
end;

// Read a section

procedure TForm1.Button4Click(Sender: TObject);
var 
  ini: TIniFile;
begin
  ini: = TIniFile.Create('WIN.INI');
  try
    ini.ReadSection('Desktop', ListBox1.Items);
  finally
    ini.Free;
  end;
end;


// Read section values

procedure TForm1.Button5Click(Sender: TObject);
var
  ini: TIniFile;
begin
  ini := TIniFile.Create('WIN.INI');
  try
    ini.ReadSectionValues('Desktop', ListBox1.Items);
  finally 
    ini.Free;  
  end;
end;

// Erase a section

procedure TForm1.Button6Click(Sender: TObject);
var 
  ini: TIniFile;
begin
  ini := TIniFile.Create('MyIni.ini');
  try
    ini.EraseSection('My_Section');
  finally
    ini.Free;
  end;
end; 


أخي tf6mehboul لا تلعب بدراستك فيحدث لك مثلما حدث لي بسبب انشغالي بالدلفي عن الدراسة.