paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Quotes are normally not stripped. Introduced a StripQuotes property

Browse Source 
git-svn-id: trunk@8782 -
This commit is contained in:
michael 2007-10-13 20:29:09 +00:00
parent 5d1a952f2a
commit fbe94969d0
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/fcl-base/src/inc/inifiles.pp
View File

@ -123,6 +123,7 @@ type
FSectionList: TIniFileSectionList;
FEscapeLineFeeds: boolean;
FCaseSensitive : Boolean;
FStripQuotes : Boolean;
public
constructor Create(const AFileName: string; AEscapeLineFeeds : Boolean = False); virtual;
destructor Destroy; override;
@ -153,6 +154,7 @@ type
property FileName: string read FFileName;
property EscapeLineFeeds: boolean read FEscapeLineFeeds;
Property CaseSensitive : Boolean Read FCaseSensitive Write FCaseSensitive;
Property StripQuotes : Boolean Read FStripQuotes Write FStripQuotes;
end;
{ TIniFile }
@ -722,12 +724,15 @@ begin
begin
sIdent:=Trim(Copy(sLine, 1, j - 1));
sValue:=Trim(Copy(sLine, j + 1, Length(sLine) - j));
J:=Length(sValue);
// 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);
If StripQuotes then
begin
J:=Length(sValue);
// 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;
end;
oSection.KeyList.Add(TIniFileKey.Create(sIdent, sValue));