diff options
| -rw-r--r-- | packages/fcl-base/src/inifiles.pp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/fcl-base/src/inifiles.pp b/packages/fcl-base/src/inifiles.pp index 6ecd2be960..89d9f95953 100644 --- a/packages/fcl-base/src/inifiles.pp +++ b/packages/fcl-base/src/inifiles.pp @@ -220,7 +220,7 @@ type procedure ReadSection(const Section: string; Strings: TStrings); override; procedure ReadSectionRaw(const Section: string; Strings: TStrings); procedure ReadSections(Strings: TStrings); override; - procedure ReadSectionValues(const Section: string; Strings: TStrings; AOptions : TSectionValuesOptions = []); overload; override; + procedure ReadSectionValues(const Section: string; Strings: TStrings; AOptions : TSectionValuesOptions = [svoIncludeInvalid]); overload; override; procedure EraseSection(const Section: string); override; procedure DeleteKey(const Section, Ident: String); override; procedure UpdateFile; override; @@ -832,7 +832,7 @@ end; procedure TCustomIniFile.ReadSectionValues(const Section: string; Strings: TStrings); begin - ReadSectionValues(Section,Strings,[]); + ReadSectionValues(Section,Strings,[svoIncludeInvalid]); end; { TIniFile } @@ -1113,7 +1113,7 @@ begin end; end; -procedure TIniFile.ReadSectionValues(const Section: string; Strings: TStrings; AOptions : TSectionValuesOptions = []); +procedure TIniFile.ReadSectionValues(const Section: string; Strings: TStrings; AOptions : TSectionValuesOptions = [svoIncludeInvalid]); var oSection: TIniFileSection; s: string; |