diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-05-18 16:55:18 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-05-18 16:55:18 +0000 |
| commit | bc321191b97f5b250a68183c9ff3ddac7b7782d0 (patch) | |
| tree | 78a222928002d982678038b9e38533d3c5f0af69 /packages/fcl-base | |
| parent | 174452b0e17899627d95e6fe40b4167b4681917f (diff) | |
| download | fpc-bc321191b97f5b250a68183c9ff3ddac7b7782d0.tar.gz | |
* fixed TIniFile.ReadString in case an unquoted string was read while
StripQuotes is true after r15280 (mantis #16502, patch by Ingo Steiniger)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15292 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-base')
| -rw-r--r-- | packages/fcl-base/src/inifiles.pp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/packages/fcl-base/src/inifiles.pp b/packages/fcl-base/src/inifiles.pp index c3193dee2d..c3362c5eb7 100644 --- a/packages/fcl-base/src/inifiles.pp +++ b/packages/fcl-base/src/inifiles.pp @@ -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; |