paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:40:34 +02: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
// mantis bug 6555)
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
else Result:=oKey.Value;
end;