|
@@ -247,6 +247,40 @@ end;
|
|
//////////////////////
|
|
//////////////////////
|
|
|
|
|
|
|
|
|
|
|
|
+{ ---------------------------------------------------------------------
|
|
|
|
+ TBooleanSysHelper
|
|
|
|
+ ---------------------------------------------------------------------}
|
|
|
|
+
|
|
|
|
+{$define TBOOLHELPER:=TBooleanSysHelper}
|
|
|
|
+{$define TBOOLTYPE:=Boolean}
|
|
|
|
+{$i syshelpersb.inc}
|
|
|
|
+
|
|
|
|
+{ ---------------------------------------------------------------------
|
|
|
|
+ TByteBoolSysHelper
|
|
|
|
+ ---------------------------------------------------------------------}
|
|
|
|
+
|
|
|
|
+{$define TBOOLHELPER:=TByteBoolSysHelper}
|
|
|
|
+{$define TBOOLTYPE:=ByteBool}
|
|
|
|
+{$i syshelpersb.inc}
|
|
|
|
+
|
|
|
|
+{ ---------------------------------------------------------------------
|
|
|
|
+ TWordBoolSysHelper
|
|
|
|
+ ---------------------------------------------------------------------}
|
|
|
|
+
|
|
|
|
+{$define TBOOLHELPER:=TWordBoolSysHelper}
|
|
|
|
+{$define TBOOLTYPE:=WordBool}
|
|
|
|
+{$i syshelpersb.inc}
|
|
|
|
+
|
|
|
|
+{ ---------------------------------------------------------------------
|
|
|
|
+ TLongBoolSysHelper
|
|
|
|
+ ---------------------------------------------------------------------}
|
|
|
|
+
|
|
|
|
+
|
|
|
|
+{$define TBOOLHELPER:=TLongBoolSysHelper}
|
|
|
|
+{$define TBOOLTYPE:=LongBool}
|
|
|
|
+{$i syshelpersb.inc}
|
|
|
|
+
|
|
|
|
+
|
|
{ ---------------------------------------------------------------------
|
|
{ ---------------------------------------------------------------------
|
|
TByteSysHelper
|
|
TByteSysHelper
|
|
---------------------------------------------------------------------}
|
|
---------------------------------------------------------------------}
|
|
@@ -341,38 +375,5 @@ end;
|
|
{$define TORDINALNIBBLEINDEX:=TNativeUIntNibbleIndex}
|
|
{$define TORDINALNIBBLEINDEX:=TNativeUIntNibbleIndex}
|
|
{$i syshelperso.inc}
|
|
{$i syshelperso.inc}
|
|
|
|
|
|
-{ ---------------------------------------------------------------------
|
|
|
|
- TBooleanSysHelper
|
|
|
|
- ---------------------------------------------------------------------}
|
|
|
|
-
|
|
|
|
-{$define TBOOLHELPER:=TBooleanSysHelper}
|
|
|
|
-{$define TBOOLTYPE:=Boolean}
|
|
|
|
-{$i syshelpersb.inc}
|
|
|
|
-
|
|
|
|
-{ ---------------------------------------------------------------------
|
|
|
|
- TByteBoolSysHelper
|
|
|
|
- ---------------------------------------------------------------------}
|
|
|
|
-
|
|
|
|
-{$define TBOOLHELPER:=TByteBoolSysHelper}
|
|
|
|
-{$define TBOOLTYPE:=ByteBool}
|
|
|
|
-{$i syshelpersb.inc}
|
|
|
|
-
|
|
|
|
-{ ---------------------------------------------------------------------
|
|
|
|
- TWordBoolSysHelper
|
|
|
|
- ---------------------------------------------------------------------}
|
|
|
|
-
|
|
|
|
-{$define TBOOLHELPER:=TWordBoolSysHelper}
|
|
|
|
-{$define TBOOLTYPE:=WordBool}
|
|
|
|
-{$i syshelpersb.inc}
|
|
|
|
-
|
|
|
|
-{ ---------------------------------------------------------------------
|
|
|
|
- TLongBoolSysHelper
|
|
|
|
- ---------------------------------------------------------------------}
|
|
|
|
-
|
|
|
|
-
|
|
|
|
-{$define TBOOLHELPER:=TLongBoolSysHelper}
|
|
|
|
-{$define TBOOLTYPE:=LongBool}
|
|
|
|
-{$i syshelpersb.inc}
|
|
|
|
-
|
|
|
|
end.
|
|
end.
|
|
|
|
|