diff options
| -rw-r--r-- | matheunit.pas | 6 |
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; |