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

* Fix bug ID #33883, incorrectly initialized CacheUpdates depending on what constructor is used

Browse Source 
git-svn-id: trunk@39322 -
This commit is contained in:
michael 2018-06-28 08:46:32 +00:00
parent 9cb620e3ac
commit 7a6bd69685
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-base/src/inifiles.pp
View File

@ -244,9 +244,12 @@ type
property CacheUpdates : Boolean read FCacheUpdates write SetCacheUpdates;
end;
{ TMemIniFile }
TMemIniFile = class(TIniFile)
public
constructor Create(const AFileName: string; AEscapeLineFeeds : Boolean = False); overload; override;
constructor Create(const AFileName: string; AOptions : TIniFileoptions = []); overload; override;
constructor Create(const AFileName: string; AEscapeLineFeeds : Boolean); overload; override;
procedure Clear;
procedure GetStrings(List: TStrings);
procedure Rename(const AFileName: string; Reload: Boolean);
@ -1396,7 +1399,13 @@ end;
{ TMemIniFile }
constructor TMemIniFile.Create(const AFileName: string; AEscapeLineFeeds : Boolean = False);
constructor TMemIniFile.Create(const AFileName: string; AOptions: TIniFileoptions);
begin
inherited;
FCacheUpdates:=True;
end;
constructor TMemIniFile.Create(const AFileName: string; AEscapeLineFeeds : Boolean);
begin
Inherited;