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

* Added some ease-of-use constructors

Browse Source 
git-svn-id: trunk@26821 -
This commit is contained in:
michael 2014-02-21 12:58:00 +00:00
parent 1785a12670
commit 5c158507cf
1 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
packages/fcl-js/src/jsbase.pp
View File

@ -42,6 +42,11 @@ Type
procedure SetIsNull(const AValue: Boolean);
procedure SetIsUndefined(const AValue: Boolean);
Public
Constructor Create;
Constructor CreateNull;
Constructor Create(ANumber : TJSNumber);
Constructor Create(ABoolean : Boolean);
Constructor Create(AString: TJSString);
Destructor Destroy; override;
Property ValueType : TJSType Read FValueType;
Property IsUndefined : Boolean Read GetIsUndefined Write SetIsUndefined;
@ -164,7 +169,32 @@ begin
ClearValue(jstUndefined);
end;
destructor TJSValue.Destroy;
Constructor TJSValue.CreateNull;
begin
IsNull:=True;
end;
Constructor TJSValue.Create;
begin
IsUndefined:=True;
end;
Constructor TJSValue.Create(ANumber: TJSNumber);
begin
AsNumber:=ANumber;
end;
Constructor TJSValue.Create(ABoolean: Boolean);
begin
AsBoolean:=ABoolean;
end;
Constructor TJSValue.Create(AString: TJSString);
begin
AsString:=AString
end;
Destructor TJSValue.Destroy;
begin
ClearValue(jstUndefined);
inherited Destroy;