paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-16 05:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add IHTMLClient, formatHTMLTime

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-22 16:15:09 +02:00
parent 6f673ec196
commit ee912ee368
1 changed files with 17 additions and 0 deletions

17
packages/rtl/Rtl.HTMLUtils.pas
View File

@ -4,6 +4,13 @@ interface
uses JS, Web, SysUtils, DateUtils, Types;
Type
IHTMLClient = Interface ['{984EDD58-4F93-40BA-A757-06AC293D11F9}']
Procedure HTMLLoaded;
Procedure HTMLRendered;
end;
{ ----------------------------------------------------------------------
HTML tag manipulation
----------------------------------------------------------------------}
@ -47,6 +54,7 @@ Function ExtractDate(S: String): TDateTime;
Function ExtractTime(S: String): TDateTime;
Function FormatHTMLDate(aDateTime : TDateTime; ZeroAsEmpty : Boolean = True) : string;
Function FormatHTMLTime(aDateTime : TDateTime; ZeroAsEmpty : Boolean = True) : string;
@ -95,6 +103,15 @@ begin
Result:=FormatDateTime('yyyy"-"mm"-"dd',aDateTime);
end;
Function FormatHTMLTime(aDateTime : TDateTime; ZeroAsEmpty : Boolean = True) : string;
begin
if (Trunc(aDateTime)=0) and (ZeroAsEmpty) then
Result:=''
else
Result:=FormatDateTime('hh":"nn"',aDateTime);
end;
Function ExtractDate(S: String): TDateTime;
Var