diff options
| -rw-r--r-- | matheunit.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/matheunit.pas b/matheunit.pas index 4783196..3049ca5 100644 --- a/matheunit.pas +++ b/matheunit.pas @@ -31,6 +31,7 @@ function myStrToFloat(s: string): extended; procedure copyArray(i: tExtPointArray; out o: tExtPointArray); overload; procedure copyArray(i: tLongintArray; out o: tLongintArray); overload; procedure copyArray(i: tExtendedArray; out o: tExtendedArray); overload; +function nullfunktion(x: extended): extended; implementation @@ -250,5 +251,10 @@ begin o[j]:=i[j]; end; +function Nullfunktion(x: extended): extended; +begin + result:=0*x; +end; + end. |