paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-14 10:09:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* HTMLHeaders class

Browse Source
This commit is contained in:
michael 2020-03-23 13:50:57 +00:00
parent 9141c50a2c
commit a5a202af2a
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/rtl/web.pas
View File

@ -43,7 +43,6 @@ Type
TJSTouchEvent = Class; TJSTouchEvent = Class;
{ TEventListenerEvent } { TEventListenerEvent }
(* (*
@ -1849,6 +1848,23 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
TJSCSSStyleDeclaration = class; // forward TJSCSSStyleDeclaration = class; // forward
TJSTimerCallBack = reference to procedure; TJSTimerCallBack = reference to procedure;
Theader = Array [0..1] of String;
THeaderArray = Array of Theader;
TJSHTMLHeaders = Class external name 'Headers' (TJSObject)
Public
constructor new(values : THeaderArray); overload;
procedure append(aName, aValue : String);
procedure delete(aName : String);
function entries : TJSIterator;
Function get(aName: String): string;
Function has(aName: String): Boolean;
function keys : TJSIterator;
function values : TJSIterator;
procedure set_(aName, aValue : String);
Property Headers[aName : string] : string Read Get Write Set_;
end;
{ TJSMediaQueryList } { TJSMediaQueryList }