paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Epsilon for Delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-09 14:32:40 +02:00
parent 669d41172c
commit a6d3587432
1 changed files with 5 additions and 0 deletions

5
rtl/objpas/types.pp
View File

@ -33,6 +33,11 @@ const
RT_RCDATA = WinTypes.RT_RCDATA deprecated 'Use WinTypes.RT_RCDATA instead';
{$endif}
Type
Epsilon: Single = 1E-40;
Epsilon2: Single = 1E-30;
type
TEndian = Objpas.TEndian;
TDirection = (FromBeginning, FromEnd);