rtl: added tkExtClass

This commit is contained in:
mattias 2019-10-30 11:56:41 +00:00
parent d1f79594de
commit a16ec5bdc1

View File

@ -51,8 +51,9 @@ type
//tkQWord,
//tkInterfaceRaw,
//tkUString,tkUChar,
tkHelper // 19
tkHelper, // 19
//tkFile,
tkExtClass // 20
);
TTypeKinds = set of TTypeKind;
@ -332,6 +333,13 @@ type
Ancestor: TTypeInfoClass external name 'ancestor';
end;
{ TTypeInfoExtClass - Kind = tkExtClass }
TTypeInfoExtClass = class external name 'rtl.tTypeInfoExtClass'(TTypeInfoClass)
public
JSClassName: String external name 'jsclass';
end;
{ TTypeInfoClassRef - class-of, Kind = tkClassRef }
TTypeInfoClassRef = class external name 'rtl.tTypeInfoClassRef'(TTypeInfo)