matheunit.pas: tKnownValues.clear neu

1 files changed, 6 insertions, 0 deletions

diff --git a/matheunit.pas b/matheunit.pas
index d57fb03..9f615bb 100644
--- a/matheunit.pas
+++ b/matheunit.pas
@@ -33,6 +33,7 @@ type
     procedure neuerChef(chef: tKnownValues; ignoriereWennBereitsVorhanden: boolean = false);
     procedure entferneKnecht(knecht: tKnownValues);
     procedure entferneChef(chef: tKnownValues);
+    procedure clear;
   end;
 
 function plus(a,b: tExtPoint): tExtPoint;
@@ -263,6 +264,11 @@ begin
   fehler('tKnownValues soll einen Chef entfernen, den es nicht hat!');
 end;
 
+procedure tKnownValues.clear;
+begin
+  setLength(kvs,0);
+end;
+
 // allgemeine Funktionen *******************************************************
 
 function plus(a,b: tExtPoint): tExtPoint;