paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 00:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SectionExists now Delphi compatible

Browse Source 
git-svn-id: trunk@7378 -
This commit is contained in:
michael 2007-05-17 15:53:02 +00:00
parent 720ad93659
commit cc9bc424e4
1 changed files with 52 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
packages/fcl-base/src/inc/inifiles.pp
View File

@ -81,6 +81,7 @@ type
FName: string;
FKeyList: TIniFileKeyList;
public
Function Empty : Boolean;
constructor Create(AName: string);
destructor Destroy; override;
property Name: string read FName;
@ -143,6 +144,8 @@ type
FCacheUpdates: Boolean;
FDirty : Boolean;
procedure FillSectionList(AStrings: TStrings);
Procedure DeleteSection(ASection : TIniFileSection);
Procedure MaybeDeleteSection(ASection : TIniFileSection);
protected
procedure MaybeUpdateFile;
property Dirty : Boolean Read FDirty;
@ -255,6 +258,22 @@ begin
inherited Clear;
end;
Function TIniFileSection.Empty : Boolean;
Var
I : Integer;
begin
Result:=True;
I:=0;
While Result and (I<KeyList.Count) do
begin
result:=IsComment(KeyList[i].Ident);
Inc(i);
end;
end;
{ TIniFileSection }
constructor TIniFileSection.Create(AName: string);
@ -332,8 +351,13 @@ begin
end;
function TCustomIniFile.SectionExists(const Section: string): Boolean;
Var
S : TIniFileSection;
begin
Result := (FSectionList.SectionByName(Section,CaseSensitive) <> nil);
S:=FSectionList.SectionByName(Section,CaseSensitive);
Result:=Assigned(S) and Not S.Empty;
end;
function TCustomIniFile.ReadInteger(const Section, Ident: string; Default: Longint): Longint;
@ -765,6 +789,20 @@ begin
end;
end;
procedure TIniFile.DeleteSection(ASection : TIniFileSection);
begin
FSectionList.Delete(FSectionList.IndexOf(ASection));
ASection.Free;
end;
Procedure TIniFile.MaybeDeleteSection(ASection : TIniFileSection);
begin
If Asection.Empty then
DeleteSection(ASection);
end;
procedure TIniFile.EraseSection(const Section: string);
var
oSection: TIniFileSection;
@ -773,8 +811,7 @@ begin
if oSection <> nil then begin
{ It is needed so UpdateFile doesn't find a defunct section }
{ and cause the program to crash }
FSectionList.Delete(FSectionList.IndexOf(oSection));
oSection.Free;
DeleteSection(OSection);
MaybeUpdateFile;
end;
end;
@ -784,15 +821,18 @@ var
oSection: TIniFileSection;
oKey: TIniFileKey;
begin
oSection := FSectionList.SectionByName(Section,CaseSensitive);
if oSection <> nil then begin
oKey := oSection.KeyList.KeyByName(Ident,CaseSensitive);
if oKey <> nil then begin
oSection.KeyList.Delete(oSection.KeyList.IndexOf(oKey));
oKey.Free;
MaybeUpdateFile;
end;
end;
oSection := FSectionList.SectionByName(Section,CaseSensitive);
if oSection <> nil then
begin
oKey := oSection.KeyList.KeyByName(Ident,CaseSensitive);
if oKey <> nil then
begin
oSection.KeyList.Delete(oSection.KeyList.IndexOf(oKey));
oKey.Free;
MaybeDeleteSection(oSection);
MaybeUpdateFile;
end;
end;
end;
procedure TIniFile.UpdateFile;