paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 07:05:56 +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} {$endif mswindows}
type type
TEndian = (Big,Little);
TDirection = (FromBeginning, FromEnd);
TValueRelationship = -1..1;
DWORD = LongWord; DWORD = LongWord;
PLongint = System.PLongint; PLongint = System.PLongint;
@ -42,23 +46,26 @@ type
LARGE_UINT= LargeUInt; LARGE_UINT= LargeUInt;
PLargeuInt = ^LargeuInt; PLargeuInt = ^LargeuInt;
TIntegerDynArray = array of Integer; TBooleanDynArray = array of Boolean;
TCardinalDynArray = array of Cardinal;
TWordDynArray = array of Word;
TSmallIntDynArray = array of SmallInt;
TByteDynArray = array of Byte; TByteDynArray = array of Byte;
TShortIntDynArray = array of ShortInt; TCardinalDynArray = array of Cardinal;
TInt64DynArray = array of Int64; TInt64DynArray = array of Int64;
TQWordDynArray = array of QWord; TIntegerDynArray = array of Integer;
TLongWordDynArray = array of LongWord; 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} {$ifndef FPUNONE}
TSingleDynArray = array of Single; TSingleDynArray = array of Single;
TDoubleDynArray = array of Double; TDoubleDynArray = array of Double;
TExtendedDynArray = array of Extended;
TCompDynArray = array of Comp;
{$endif} {$endif}
TBooleanDynArray = array of Boolean;
TStringDynArray = array of AnsiString;
TWideStringDynArray = array of WideString;
TPointerDynArray = array of Pointer;
{$ifdef Windows} {$ifdef Windows}
TPoint = Windows.TPoint; TPoint = Windows.TPoint;
@ -102,6 +109,8 @@ type
cy : Longint; cy : Longint;
end; end;
{$endif Windows} {$endif Windows}
PSize = ^TSize; PSize = ^TSize;
tagSIZE = TSize; tagSIZE = TSize;
// SIZE = TSize; // SIZE = TSize;