Browse Source

* Fix bug #33052, stripquotes is removed accidentally in TIniFile constructor call of inherited

git-svn-id: trunk@38018 -
michael 7 years ago
parent
commit
d1bba7ec3d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-base/src/inifiles.pp

+ 1 - 1
packages/fcl-base/src/inifiles.pp

@@ -933,7 +933,7 @@ constructor TIniFile.Create(const AFileName: string; AOptions: TIniFileoptions);
 begin
 begin
   FBOM := '';
   FBOM := '';
   If Not (self is TMemIniFile) then
   If Not (self is TMemIniFile) then
-    StripQuotes:=True;
+    Include(AOptions,ifoStripQuotes);
   inherited Create(AFileName,AOptions);
   inherited Create(AFileName,AOptions);
   FStream := nil;
   FStream := nil;
   ReadIniValues;
   ReadIniValues;