paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +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 ReadSection(const Section: string; Strings: TStrings); override;
procedure ReadSectionRaw(const Section: string; Strings: TStrings); procedure ReadSectionRaw(const Section: string; Strings: TStrings);
procedure ReadSections(Strings: TStrings); override; 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 EraseSection(const Section: string); override;
procedure DeleteKey(const Section, Ident: String); override; procedure DeleteKey(const Section, Ident: String); override;
procedure UpdateFile; override; procedure UpdateFile; override;
@ -896,7 +896,7 @@ end;
procedure TCustomIniFile.ReadSectionValues(const Section: string; procedure TCustomIniFile.ReadSectionValues(const Section: string;
Strings: TStrings); Strings: TStrings);
begin begin
ReadSectionValues(Section,Strings,[]); ReadSectionValues(Section,Strings,[svoIncludeInvalid]);
end; end;
{ TIniFile } { TIniFile }
@ -1177,7 +1177,7 @@ begin
end; end;
end; end;
procedure TIniFile.ReadSectionValues(const Section: string; Strings: TStrings; AOptions : TSectionValuesOptions = []); procedure TIniFile.ReadSectionValues(const Section: string; Strings: TStrings; AOptions : TSectionValuesOptions = [svoIncludeInvalid]);
var var
oSection: TIniFileSection; oSection: TIniFileSection;
s: string; s: string;