paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-23 14:16:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some Delphi XE8 compatibility types

Browse Source 
git-svn-id: trunk@31461 -
This commit is contained in:
michael 2015-08-31 12:00:22 +00:00
parent 4f38317bd2
commit d3350b18ba
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/objpas/types.pp
View File

@ -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;