Funktion dump eingefuegt,

Protokollant wird nun mit Namen statt Typbezeichner initialisiert

1 files changed, 10 insertions, 1 deletions

diff --git a/matheunit.pas b/matheunit.pas
index cf7eda8..9823391 100644
--- a/matheunit.pas
+++ b/matheunit.pas
@@ -5,7 +5,7 @@ unit matheunit;
 interface
 
 uses
-  Classes, SysUtils, Gmp, Math, lowlevelunit;
+  Classes, SysUtils, Gmp, Math, lowlevelunit, protokollunit;
 
 type
   tCallBackGetValue = function(name: string): extended of object;
@@ -25,6 +25,7 @@ type
     procedure add(nam: string; val: extended); overload;
     function rem(nam: string): boolean;
     function extract(nam: string; out val: extended): boolean; inline;
+    procedure dump(prot: tProtokollant; prefix: string);
   end;
 
 function plus(a,b: tExtPoint): tExtPoint;
@@ -117,6 +118,14 @@ begin
     val:=kvs[i].value;
 end;
 
+procedure tKnownValues.dump(prot: tProtokollant; prefix: string);
+var
+  i: longint;
+begin
+  for i:=0 to length(kvs)-1 do
+    prot.schreibe(prefix+kvs[i].name+' = '+floattostr(kvs[i].value));
+end;
+
 // allgemeine Funktionen *******************************************************
 
 function plus(a,b: tExtPoint): tExtPoint;