From c0e9dbf977b136f741abc63e821a5eb5e3a9cf72 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Fri, 24 Jul 2015 08:40:08 +0200 Subject: nullfunktion in matheunit.pas eingefuegt --- matheunit.pas | 6 ++++++ 1 file changed, 6 insertions(+) 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. -- cgit v1.2.3-70-g09d2