paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 13:08:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed readsectionvalues call

Browse Source 
git-svn-id: trunk@53 -
This commit is contained in:
michael 2005-05-21 20:20:26 +00:00
parent 8994c6362c
commit d52d586456
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/inc/inifiles.pp
View File

@ -655,9 +655,8 @@ begin
oSection := FSectionList.SectionByName(Section);
if oSection <> nil then with oSection.KeyList do
for i := 0 to Count-1 do begin
s := Items[i].Value;
if s > '' then
Strings.Add(s);
s := Items[i].Ident+Separator+Items[i].Value;
Strings.Add(s);
end;
finally
Strings.EndUpdate;