From 88877284dfd4f17887ff7f11b659fbd60aee932a Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 26 May 2005 06:14:37 +0000
Subject: [PATCH] + Fixed bug #4012

git-svn-id: trunk@118 -
---
 fcl/inc/inifiles.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/fcl/inc/inifiles.pp b/fcl/inc/inifiles.pp
index c3b47d06c2..f6c96f2d0a 100644
--- a/fcl/inc/inifiles.pp
+++ b/fcl/inc/inifiles.pp
@@ -534,6 +534,9 @@ begin
            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
+               sValue:=Copy(sValue,2,J-2);
            end;
         end;
         oSection.KeyList.Add(TIniFileKey.Create(sIdent, sValue));