paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #35731 (ReadSectionRaw needs to read comments)

Browse Source 
git-svn-id: trunk@42247 -
This commit is contained in:
michael 2019-06-19 06:12:15 +00:00
parent d6174499b1
commit db2c9183f1
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-base/examples/testini.pp
View File

@ -33,8 +33,13 @@ begin
for i:=0 to lines.Count-1 do
WriteLn(' ', lines[i]);
lines.Clear();
ini.ReadSectionValues('main', lines,[svoIncludeComments]);
WriteLn('ReadSectionValues (with comments, no invalid):');
ini.ReadSectionValues('main', lines,[]);
WriteLn('ReadSectionValues (no options):');
for i:=0 to lines.Count-1 do
WriteLn(' ', lines[i]);
lines.Clear();
ini.ReadSectionRaw('main', lines);
WriteLn('ReadSectionRaw (with comments, no invalid):');
for i:=0 to lines.Count-1 do
WriteLn(' ', lines[i]);
lines.Clear();

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

@ -1190,7 +1190,6 @@ begin
oSection := FSectionList.SectionByName(Section,CaseSensitive);
if oSection <> nil then with oSection.KeyList do
for i := 0 to Count-1 do
if not IsComment(Items[i].Ident) then
begin
if Items[i].Ident<>'' then
Strings.Add(Items[i].Ident + Separator +Items[i].Value)