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

Create the TRttiDataMember to Delphi compatibility.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2024-09-16 14:14:43 -03:00
parent 6717b54b3e
commit a88f985230
1 changed files with 48 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
packages/rtl/src/rtti.pas
View File

@ -168,16 +168,35 @@ type
property Visibility: TMemberVisibility read GetVisibility;
end;
{ TRttiDataMember }
TRttiDataMember = class abstract(TRttiMember)
private
function GetDataType: TRttiType; virtual; abstract;
function GetIsReadable: Boolean; virtual; abstract;
function GetIsWritable: Boolean; virtual; abstract;
public
function GetValue(Instance: JSValue): TValue; virtual; abstract;
procedure SetValue(Instance: JSValue; const AValue: TValue); virtual; abstract;
property DataType: TRttiType read GetDataType;
property IsReadable: Boolean read GetIsReadable;
property IsWritable: Boolean read GetIsWritable;
end;
{ TRttiField }
TRttiField = class(TRttiMember)
TRttiField = class(TRttiDataMember)
private
function GetFieldType: TRttiType;
function GetFieldTypeInfo: TTypeMemberField;
function GetDataType: TRttiType; override;
function GetIsReadable: Boolean; override;
function GetIsWritable: Boolean; override;
public
constructor Create(AParent: TRttiType; ATypeInfo: TTypeMember);
function GetValue(Instance: JSValue): TValue;
procedure SetValue(Instance: JSValue; const AValue: TValue);
function GetValue(Instance: JSValue): TValue; override;
procedure SetValue(Instance: JSValue; const AValue: TValue); override;
property FieldType: TRttiType read GetFieldType;
property FieldTypeInfo: TTypeMemberField read GetFieldTypeInfo;
end;
@ -246,20 +265,21 @@ type
{ TRttiProperty }
TRttiProperty = class(TRttiMember)
TRttiProperty = class(TRttiDataMember)
private
function GetDataType: TRttiType; override;
function GetPropertyTypeInfo: TTypeMemberProperty;
function GetPropertyType: TRttiType;
function GetIsWritable: boolean;
function GetIsReadable: boolean;
function GetIsWritable: boolean; override;
function GetIsReadable: boolean; override;
protected
function GetVisibility: TMemberVisibility; override;
public
constructor Create(AParent: TRttiType; ATypeInfo: TTypeMember);
function GetValue(Instance: JSValue): TValue;
function GetValue(Instance: JSValue): TValue; override;
procedure SetValue(Instance: JSValue; const AValue: TValue);
procedure SetValue(Instance: JSValue; const AValue: TValue); override;
property PropertyTypeInfo: TTypeMemberProperty read GetPropertyTypeInfo;
property PropertyType: TRttiType read GetPropertyType;
@ -1773,6 +1793,21 @@ begin
inherited;
end;
function TRttiField.GetDataType: TRttiType;
begin
Result := nil;
end;
function TRttiField.GetIsReadable: Boolean;
begin
Result := True;
end;
function TRttiField.GetIsWritable: Boolean;
begin
Result := True;
end;
function TRttiField.GetFieldType: TRttiType;
begin
Result := Pool.GetType(FieldTypeInfo.TypeInfo);
@ -1983,6 +2018,11 @@ begin
inherited;
end;
function TRttiProperty.GetDataType: TRttiType;
begin
Result := GetPropertyType;
end;
function TRttiProperty.GetPropertyTypeInfo: TTypeMemberProperty;
begin
Result := TTypeMemberProperty(inherited Handle);