From c3a01b065a030a78471ee68e087055af3a49af69 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 27 Jul 2015 14:57:31 +0200
Subject: tKnownValues.rem in matheunit.pas eingefuegt

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

(limited to 'matheunit.pas')

diff --git a/matheunit.pas b/matheunit.pas
index dd4b4bc..cf7eda8 100644
--- a/matheunit.pas
+++ b/matheunit.pas
@@ -23,6 +23,7 @@ type
     destructor destroy; override;
     procedure add(val: tKnownValue); inline; overload;
     procedure add(nam: string; val: extended); overload;
+    function rem(nam: string): boolean;
     function extract(nam: string; out val: extended): boolean; inline;
   end;
 
@@ -90,6 +91,22 @@ begin
   kvs[i].value:=val;
 end;
 
+function tKnownValues.rem(nam: string): boolean;
+var
+  i: longint;
+begin
+  i:=finde(nam);
+  result:=i>=0;
+  if result then begin
+    while i<length(kvs)-1 do begin
+      kvs[i].name:=kvs[i+1].name;
+      kvs[i].value:=kvs[i+1].value;
+      inc(i);
+    end;
+    setlength(kvs,length(kvs)-1);
+  end;
+end;
+
 function tKnownValues.extract(nam: string; out val: extended): boolean;
 var
   i: longint;
-- 
cgit v1.2.3-70-g09d2