From aeac304b61b00cf576e1d5caf164a7526df904df Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 20 Dec 2017 15:59:28 +0100
Subject: matheunit.pas: tKnownValues.clear neu

---
 matheunit.pas | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'matheunit.pas')

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;
-- 
cgit v1.2.3-70-g09d2