فكرة لوحدة للتعامل مع Inifiles

اهلا اخي مروان اولا شكرا على هذه الوحدة

اما في عملي في الحقيقة انا لست محتاج لكل هذه الدوال مع اني انشاة وحدة مشابهة لكن تقل على التي وضعتها .

لكن هي فكرة جيدة واري ام الكود جيد وليس فيه اصلاحات شكرا .

بالتوفيق

نريد اعادة احياء المنتدي بمشروع هل تشاركنا .

شكرا أخي عبد العالي...

نعم لا يوجد مشكلة سواء كان على دلفي 32 بت ام برايسم

:thumb_up: :evil:

السلام عليكــم ورحمـة الله وبركاتــه ،،

اشار اخي محمد الى وجود خطأ في الوحدة MyIniFile الشكر له..

قمت بتعديل الخطأ و اضافة بعض الدوال و التحسينات ارجو ان تكون الوحدة كاملة الان

اي افكار جديدة مرحب بها.. :wub:

{*******************************************************}
{													   }
{	   Simple IniFile Unit							 }
{													   }
{	   Copyright (C) 2009 Amine / fkugd2003			}
{													   }
{*******************************************************}
{ Error Correction From Mohfa in TSections.LoadFromFIle }
{*******************************************************}
unit MyIniFileUnit;

interface

uses
  IniFiles,Classes, SysUtils,contnrs;
var
  IniFileReader: TIniFile;
type
	{*******************************************************}
	{	   The Section Class is equivalent to			  }
	{	   [Section] in the IniFile						}
	{	   Rows are in the form KeyName=Value			  }
	{	   Sorry But no Support For EmptyStr Value		 }
	{*******************************************************}
	TSection  = class
	  public
		Rows: TStringList; // this will contain TRow
		SectionName: String;
		constructor Create(const t_SectionName:String);
		Destructor Destroy;override;

		procedure InsertRow(const t_keyname:string; const t_value:string);overload;
		procedure RemoveRow(t_Index: Integer);overload;
		procedure RemoveRow(const t_KeyName: String);overload;
		procedure EditValue(t_Index:Integer;const t_NewValue:string);overload;
		procedure EditValue(const t_keyname, t_NewValue: string);overload;
		procedure RenameKey(t_Index:Integer; const t_NewName:string);overload;
		procedure RenameKey(const t_oldName, t_NewName: string);overload;

		function RetreiveKey(t_Index:Integer):string;
		function RetreiveValue(t_Index: Integer):string;overload;
		function RetreiveValue(const t_KeyName: string):string;overload;
	end;
	{*******************************************************}
	{	   The Sections Class will save the structure	  }
	{	   of your file in it							  }
	{*******************************************************}
	TSections = class
	  public
		Items: TObjectList; // this will contain TSection

		constructor Create;
		destructor Destroy;override;
		procedure CreateSection(const t_SectionName:string);
		procedure InsertSection(t_Section:TSection);
		procedure RemoveSection(t_Index: Integer);overload;
		procedure RemoveSection(const t_SectionName: String);overload;
		procedure RenameSection(t_Index:Integer; const t_newName: string);overload;
		procedure RenameSection(const t_oldName, t_NewName: string); overload;
		procedure LoadFromFile(const FilePath: string);
		procedure SaveToFile(const FilePath: string);

		procedure InsertRow(const t_SectionName, Keyname, Value:String);
		procedure RemoveRow(const t_SectionName:string; t_Index:Integer);overload;
		procedure RemoveRow(const t_SectionName, t_KeyName: string);overload;
		procedure EditValue(const t_SectionName, t_keyname, t_NewValue:string);
		procedure RenameKey(const t_SectionName, t_oldName,t_NewName:string);
		procedure GetSectionNames(t:TStrings);
		procedure GetRows(const t_SectionName: String; t:TStrings);

		function GetSectionsCount:Integer;
		function GetRowsCount(t_Index:Integer):Integer;
	end;
implementation

{ TSection Class}

constructor TSection.Create(const t_SectionName: String);
begin
  SectionName := t_SectionName;
  Rows := TStringList.Create;
end;

destructor TSection.Destroy;
begin
  FreeAndNil(Rows);
  inherited;
end;

procedure TSection.EditValue(t_Index: Integer; const t_NewValue: string);
begin
  if (t_Index >=0) and (t_index <= Rows.Count) then
	Rows[t_Index] := Copy(Rows[t_Index],1,Pos('=',Rows[t_Index]))+t_NewValue;
end;

procedure TSection.EditValue(const t_keyname, t_NewValue: string);
var i:Integer;
begin
  for i:=0 to Rows.Count-1 do
  begin
	if RetreiveKey(i) = t_keyname then
	begin
		Rows := RetreiveKey(i)+'='+t_NewValue;
	end;
  end;
end;

procedure TSection.InsertRow(const t_keyname, t_value: string);
begin
  Rows.Add(t_KeyName+'='+t_value);
end;

procedure TSection.RemoveRow(t_Index: Integer);
begin
  if (t_Index >= 0) and (t_Index <= Rows.Count) then
  begin
	Rows.Delete(t_Index);
  end;
end;

procedure TSection.RemoveRow(const t_KeyName: String);
var i:integer;
begin
  for i:=0 to Rows.Count -1 do
  begin
	if RetreiveKey(i) = t_KeyName then
	begin
	  Rows.Delete(i);
	  Break;
	end;
  end;
end;

procedure TSection.RenameKey(t_Index: Integer; const t_NewName: string);
begin
  if (t_Index >=0) and (t_index <= Rows.Count) then
	Rows[t_Index] := t_NewName + RetreiveValue(t_Index);
end;

procedure TSection.RenameKey(const t_oldName, t_NewName: string);
var i:Integer;
begin
  for i:=0 to Rows.Count -1 do
  begin
	if SectionName = t_oldName then
	begin
	  SectionName := t_NewName;
	  Break;
	end;

  end;
end;

function TSection.RetreiveKey(t_Index: Integer): string;
begin
  if (t_Index >=0) and (t_index <= Rows.Count) then
  begin
	Result := Copy(Rows[t_Index], 1, Pos('=', Rows[t_Index])-1);
  end
  else Result := EmptyStr;
end;

function TSection.RetreiveValue(t_Index: Integer): string;
begin
  if (t_Index >=0) and (t_index <= Rows.Count) then
  begin
	Result := Copy(Rows[t_Index], Pos('=', Rows[t_Index])+1, Length(Rows[t_Index]));
  end
  else Result := EmptyStr;
end;

function TSection.RetreiveValue(const t_KeyName: string): string;
var i:Integer;
begin
  for i:=0 to Rows.Count -1 do
  begin
	if RetreiveKey(i) = t_KeyName then
	begin
	  Result := Copy(Rows, Pos('=', Rows)+1, Length(Rows));
	  Break;
	end
	else Result := EmptyStr;
  end;
end;
{ TSections }

constructor TSections.Create;
begin
  Items := TObjectList.Create;
end;

procedure TSections.CreateSection(const t_SectionName: string);
begin
  Items.Add(TSection.Create(t_SectionName));
end;

destructor TSections.Destroy;
begin
  FreeAndNil(Items);
  inherited;
end;

procedure TSections.SaveToFile(const FilePath: string);
var i, j, epos: Integer;
	t_Section: TSection;
	IniFileWriter: TIniFile;
begin
  if not FileExists(FilePath) then FileCreate(FilePath);
  IniFileWriter := TIniFile.Create(FilePath);
  for i:= 0 to Items.Count -1 do
  begin
	t_Section := TSection(Items);
	with t_Section do
	begin
	  for j := 0 to Rows.Count -1  do
	  begin
		IniFileWriter.WriteString(
		  SectionName,
		  RetreiveKey(j),
		  RetreiveValue(j)
		);
	  end;
	end;
  end;
  FreeAndNil(IniFileWriter);
end;

procedure TSections.InsertSection(t_Section:TSection);
begin
  Items.Add(t_Section);
end;

procedure TSections.LoadFromFile(const FilePath: string);
var
  i: Integer;
  t_Section : TSection;
  t_Sections:TStrings;
  t_Rows : TStrings;
begin
  t_Sections := TStringList.Create;
  t_Rows := TStringList.Create;

  if FileExists(FilePath) then
  begin
	IniFileReader := TIniFile.Create(FilePath);
	IniFileReader.ReadSections(t_Sections);

	for i := 0 to t_Sections.Count -1 do
	begin
	  IniFileReader.ReadSectionValues(t_Sections,t_Rows);
	  t_Section := TSection.Create(t_Sections.Strings);
	  t_Section.Rows.AddStrings(t_Rows);
	  InsertSection(t_Section);
	end;
  end;
  t_Sections.Free;
  t_Rows.Free;
end;

procedure TSections.RemoveSection(t_Index: Integer);
begin
  if (t_Index >=0) and (t_Index <= Items.Count) then
	Items.Delete(t_Index);
end;

procedure TSections.RenameSection(t_Index: Integer;
  const t_newName: string);
begin
  if (t_Index >= 0) and (t_Index <= Items.Count) then
	TSection(Items.Items[t_Index]).SectionName := t_NewName;

end;

procedure TSections.GetRows(const t_SectionName: String; t: TStrings);
begin
  IniFileReader.ReadSectionValues(t_SectionName, t);
end;

function TSections.GetSectionsCount: Integer;
begin
  Result := Items.Count;
end;

function TSections.GetRowsCount(t_Index: Integer): Integer;
begin
  if (t_Index >= 0) and (t_Index <= Items.Count) then
	Result:= TSection(Items.Items[t_Index]).Rows.Count
  else Result := -1;
end;

procedure TSections.RemoveSection(const t_SectionName: String);
var i:Integer;
begin
  for i:=0 to Items.Count-1 do
  begin
	if TSection(Items.Items).SectionName = t_SectionName then
	begin
	  Items.Delete(i);
	  Break;
	end;
  end;
end;

procedure TSections.RenameSection(const t_oldName, t_NewName: string);
var i:integer;
begin
  for i := 0 to Items.Count-1  do
  begin
	if TSection(Items.Items).SectionName = t_oldName then
	begin
	  TSection(Items.Items).SectionName := t_NewName;
	  Break;
	end;
  end;

end;

procedure TSections.EditValue(const t_SectionName, t_keyname,t_NewValue: string);
var i:integer;
begin
  for i:= 0 to Items.Count -1 do
  begin
	if TSection(Items.Items).SectionName = t_SectionName then
	begin
	  TSection(Items.Items).EditValue(t_keyname,t_NewValue);
	  Break;
	end;
  end;
end;

procedure TSections.InsertRow(const t_SectionName, Keyname, Value: String);
var i:integer;
begin
  for i:= 0 to Items.Count -1 do
  begin
	if TSection(Items.Items).SectionName = t_SectionName then
	begin
	  TSection(Items.Items).InsertRow(keyname,value);
	  Break;
	end;
  end;
end;

procedure TSections.RemoveRow(const t_SectionName: String; t_Index: Integer);
var i:integer;
begin
  for i:= 0 to Items.Count -1 do
  begin
	if TSection(Items.Items).SectionName = t_SectionName then
	begin
	  TSection(Items.Items).RemoveRow(t_Index);
	  Break;
	end;
  end;
end;

procedure TSections.RenameKey(const t_SectionName, t_oldName,t_NewName: string);
var i,j:Integer;
	t_Section :TSection;
begin
  for i:=0 to Items.Count -1 do
  begin
	t_Section := TSection(Items.Items);
	if t_Section.SectionName = t_SectionName then
	begin
	  for j:=0 to t_Section.Rows.Count-1 do
	  begin
		if t_Section.RetreiveKey(j) = t_oldName then
		begin
		  TSection(Items.Items).RenameKey(j, t_NewName);
		  Break;
		end;
	  end;
	end;
  end;
end;

procedure TSections.RemoveRow(const t_SectionName, t_KeyName: string);
var i,j:integer;
	t_Section:TSection;
begin
  for i:= 0 to Items.Count -1 do
  begin
	t_Section := TSection(Items.Items);
	if t_Section.SectionName = t_SectionName then
	begin
	  for j:=0 to t_Section.Rows.Count -1 do
	  begin
		TSection(Items.Items).RemoveRow(j);
		Break;
	  end;

	end;
  end;
  FreeAndNil(t_Section);
end;

{*******************************************************}
{ Returns Section Names in a file, result in t:TStrings }
{*******************************************************}
procedure TSections.GetSectionNames(t:TStrings);
begin
  IniFileReader.ReadSections(t);
end;

end.