paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Check allowed options when setting options not in constructor

Browse Source 
git-svn-id: trunk@33220 -
This commit is contained in:
michael 2016-03-12 09:48:20 +00:00
parent f780872069
commit e160b09468
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-base/src/inifiles.pp
View File

@ -543,8 +543,13 @@ begin
end; end;
procedure TCustomIniFile.SetOptions(AValue: TIniFileOptions); procedure TCustomIniFile.SetOptions(AValue: TIniFileOptions);
Const
CreateOnlyOptions = [ifoStripComments,ifoStripInvalid];
begin begin
if FOptions=AValue then Exit; if FOptions=AValue then Exit;
if (Foptions*CreateOnlyOptions)<>(AValue*CreateOnlyOptions) then
Raise Exception.Create('Can only change StripComments or StripInvalid in constructor');
FOptions:=AValue; FOptions:=AValue;
end; end;