forked from Xor-el/IntXLib4Pascal
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathuIntXLibTypes.pas
More file actions
64 lines (50 loc) · 1.36 KB
/
uIntXLibTypes.pas
File metadata and controls
64 lines (50 loc) · 1.36 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
unit uIntXLibTypes;
{$I ..\Include\IntXLib.inc}
interface
uses
{$IFDEF FPC}
fgl,
{$ENDIF FPC}
SysUtils;
type
TFormatSettings = SysUtils.TFormatSettings;
EOverflowException = EOverflow;
EArgumentNilException = class(Exception);
EFhtMultiplicationException = class(Exception);
EFormatException = class(Exception);
EArithmeticException = SysUtils.EMathError;
EArgumentException = SysUtils.EArgumentException;
EArgumentOutOfRangeException = SysUtils.EArgumentOutOfRangeException;
EDivByZero = SysUtils.EDivByZero;
{$IFDEF FPC}
TDictionary<TKey, TValue> = class(TFPGMap<TKey, TValue>);
{$ENDIF FPC}
{$IFDEF DELPHIXE_UP}
/// <summary>
/// Represents a dynamic array of UInt32.
/// </summary>
TIntXLibUInt32Array = TArray<UInt32>;
/// <summary>
/// Represents a dynamic array of Double.
/// </summary>
TIntXLibDoubleArray = TArray<Double>;
/// <summary>
/// Represents a dynamic array of char.
/// </summary>
TIntXLibCharArray = TArray<Char>;
{$ELSE}
/// <summary>
/// Represents a dynamic array of UInt32.
/// </summary>
TIntXLibUInt32Array = array of UInt32;
/// <summary>
/// Represents a dynamic array of Double.
/// </summary>
TIntXLibDoubleArray = array of Double;
/// <summary>
/// Represents a dynamic array of char.
/// </summary>
TIntXLibCharArray = array of Char;
{$ENDIF DELPHIXE_UP}
implementation
end.