pas2js/demo/modules/simple/htmlutils/htmlutils.pas

library htmlutils;

uses
  web;

Var
  DefaultClearID : String;

Procedure SetPageTitle(aTitle : String);

begin
  Document.Title:=aTitle;
end;

Procedure ClearPage(aBelowID : String);

Var
  EL : TJSElement;

begin
  if (aBelowID='') then
    aBelowID:=DefaultClearID;
  if (aBelowID='') then
    el:=Document.body
  else
    el:=Document.getElementById(aBelowID);
  if Assigned(El) then
    El.innerHTML:='';
end;

exports
  DefaultClearID,
  SetPageTitle,
  ClearPage;

begin
  // Your library initialization code here
end.