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

* Fix bug #32047

Browse Source 
git-svn-id: trunk@36585 -
This commit is contained in:
michael 2017-06-23 11:18:22 +00:00
parent 50332a97bc
commit bc53a908c9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -227,7 +227,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;
@ -896,7 +896,7 @@ end;
procedure TCustomIniFile.ReadSectionValues(const Section: string;
Strings: TStrings);
begin
ReadSectionValues(Section,Strings,[]);
ReadSectionValues(Section,Strings,[svoIncludeInvalid]);
end;
{ TIniFile }
@ -1177,7 +1177,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;