* Some Delphi XE8 compatibility types

git-svn-id: trunk@31461 -

rtl/objpas/types.pp

@@ -27,6 +27,10 @@ const
 {$endif mswindows}
 
 type
+  TEndian = (Big,Little);
+  TDirection = (FromBeginning, FromEnd);
+  TValueRelationship = -1..1;
+  
   DWORD = LongWord;
 
   PLongint = System.PLongint;
@@ -42,23 +46,26 @@ type
   LARGE_UINT= LargeUInt;
   PLargeuInt = ^LargeuInt;
 
-  TIntegerDynArray = array of Integer;
-  TCardinalDynArray = array of Cardinal;
-  TWordDynArray = array of Word;
-  TSmallIntDynArray = array of SmallInt;
+  TBooleanDynArray = array of Boolean;
   TByteDynArray = array of Byte;
-  TShortIntDynArray = array of ShortInt;
+  TCardinalDynArray = array of Cardinal;
   TInt64DynArray = array of Int64;
-  TQWordDynArray = array of QWord;
+  TIntegerDynArray = array of Integer;
   TLongWordDynArray = array of LongWord;
+  TPointerDynArray = array of Pointer;
+  TQWordDynArray = array of QWord;
+  TShortIntDynArray = array of ShortInt;
+  TSmallIntDynArray = array of SmallInt;
+  TStringDynArray = array of AnsiString;
+  TWideStringDynArray   = array of WideString;
+  TWordDynArray = array of Word;
+  TCurrencyArray = Array of currency;
 {$ifndef FPUNONE}
   TSingleDynArray = array of Single;
   TDoubleDynArray = array of Double;
+  TExtendedDynArray = array of Extended;
+  TCompDynArray = array of Comp;
 {$endif}
-  TBooleanDynArray = array of Boolean;
-  TStringDynArray = array of AnsiString;
-  TWideStringDynArray   = array of WideString;
-  TPointerDynArray = array of Pointer;
 
 {$ifdef Windows}
   TPoint = Windows.TPoint;
@@ -102,6 +109,8 @@ type
      cy : Longint;
   end;
 {$endif Windows}
+
+
   PSize = ^TSize;
   tagSIZE = TSize;
 //  SIZE = TSize;