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

* fix bug #6555

Browse Source 
git-svn-id: trunk@5791 -
This commit is contained in:
joost 2007-01-02 21:42:14 +00:00
parent 1ad6417f7f
commit 15ed6ed527
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/inc/inifiles.pp
View File

@ -567,7 +567,10 @@ begin
sIdent:=Trim(Copy(sLine, 1, j - 1));
sValue:=Trim(Copy(sLine, j + 1, Length(sLine) - j));
J:=Length(sValue);
If (J>0) and (sValue[1]='"') and (sValue[J]='"') then
// Joost, 2-jan-2007: The check (J>1) is there for the case that
// the value consist of a single double-quote character. (see
// mantis bug 6555)
If (J>1) and (sValue[1]='"') and (sValue[J]='"') then
sValue:=Copy(sValue,2,J-2);
end;
end;