diff options
| -rw-r--r-- | lowlevelunit.pas | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index 8708768..feeea4d 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -5,7 +5,7 @@ unit lowlevelunit; interface uses - math, Classes, SysUtils, gmp, RegExpr, process, agg_2D, FPimage, agg_basics; + math, Classes, SysUtils, gmp, RegExpr, process, FPimage, agg_basics; type generic tArray<T> = array of T; @@ -21,6 +21,7 @@ type pTExtPointArray = ^tExtPointArray; tExtendedArray = specialize tArray<extended>; pTExtendedArray = ^tExtendedArray; + tDoubleArray = specialize tArray<single>; tInt32Array = specialize tArray<int32>; tByteArray = specialize tArray<byte>; tStringArray = specialize tArray<string>; @@ -33,7 +34,7 @@ type tRgbArray = specialize tArray<tRGB>; tKodierung = (kUnbekannt,k32BitSignedInteger); tWarnstufe = (wsStreng,wsLasch); - tGenauigkeit = (gSingle,gExtended); + tGenauigkeit = (gSingle,gDouble,gExtended); function signSqr(x: extended): extended; inline; function mpfToStr(f: mpf_t): string; @@ -425,6 +426,11 @@ begin gen:=gSingle; exit; end; + if s='double' then + begin + gen:=gDouble; + exit; + end; if s='extended' then begin gen:=gExtended; |