Added " to entity list

This commit is contained in:
Mark van Renswoude 2017-11-09 15:00:54 +01:00
parent fe23261d6d
commit ea61350a42
4 changed files with 8 additions and 3 deletions

3
.gitignore vendored
View File

@ -1,3 +1,4 @@
__history
test/Win32
*.local
*.local
*.identcache

View File

@ -14,11 +14,13 @@ type
const
// Source: https://www.freeformatter.com/html-entities.html
HTMLEntityList: array[0..224] of THTMLEntity =
// ...which was lacking ", maybe I should cross-reference this with the HTML 5 specs...
HTMLEntityList: array[0..225] of THTMLEntity =
(
(Name: 'amp'; Value: #38), // Ampersand
(Name: 'lt'; Value: #60), // Less-than
(Name: 'gt'; Value: #62), // Greater than
(Name: 'quot'; Value: #34), // Quote
(Name: 'Agrave'; Value: #192), // Capital a with grave accent
(Name: 'Aacute'; Value: #193), // Capital a with acute accent
(Name: 'Acirc'; Value: #194), // Capital a with circumflex accent

View File

@ -2,7 +2,8 @@ program HTMLEntitiesTest;
uses
GUITestRunner,
DecodeTest in 'DecodeTest.pas';
DecodeTest in 'DecodeTest.pas',
HTMLEntities in '..\HTMLEntities.pas';
begin
RunRegisteredTests;

View File

@ -75,6 +75,7 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="DecodeTest.pas"/>
<DCCReference Include="..\HTMLEntities.pas"/>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>