diff options
Diffstat (limited to 'matheunit.pas')
| -rw-r--r-- | matheunit.pas | 11 |
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; |