nullfunktion in matheunit.pas eingefuegt

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.