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

* fixed TIniFile.ReadString in case an unquoted string was read while

Browse Source 
StripQuotes is true after r15280 (mantis #16502, patch by Ingo Steiniger)

git-svn-id: trunk@15292 -
This commit is contained in:
Jonas Maebe 2010-05-18 16:55:18 +00:00
parent 4e6a42cfd0
commit 6ea0e26175
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -753,7 +753,9 @@ begin
// the value consist of a single double-quote character. (see // the value consist of a single double-quote character. (see
// mantis bug 6555) // mantis bug 6555)
If (J>1) and ((oKey.Value[1] in ['"','''']) and (oKey.Value[J]=oKey.Value[1])) then If (J>1) and ((oKey.Value[1] in ['"','''']) and (oKey.Value[J]=oKey.Value[1])) then
Result:=Copy(oKey.Value,2,J-2); Result:=Copy(oKey.Value,2,J-2)
else
Result:=oKey.Value;
end end
else Result:=oKey.Value; else Result:=oKey.Value;
end; end;