瀏覽代碼

* Add stub for IsManagedType

Michaël Van Canneyt 2 年之前
父節點
當前提交
348fbfde9d
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      rtl/inc/system.fpd

+ 1 - 0
rtl/inc/system.fpd

@@ -95,6 +95,7 @@ Function TypeInfo(Const T : AnyType) : Pointer;
 Function GetTypeKind(Const T : AnyType) : TTypeKind;
 Procedure Fail;
 Function TypeOf(T : TObjectType) : Pointer;
+Function IsManagedType(T : TType) : Boolean;
 Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);
 Procedure Finalize(Var T : TAnyType; ACount : SizeInt = 1);