mystringlistunit.pas expandMacros versteht jetzt auch binaere

ist-Element-von-Operatoren

1 files changed, 14 insertions, 2 deletions

diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 34e72e8..6f3fc23 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -235,8 +235,8 @@ var i,j,k,l,Ebene:                longint;
     s,t,u,v:                      string;
     SchleifenInhalt:              tMyStringlist;
     istWahr,gefunden,wasGefunden: boolean;
-const binops: array[0..8] of string =
-  ('<=','>=','<>','≤','≥','=','≠','<','>');
+const binops: array[0..12] of string =
+  ('<=','>=','<>','≤','≥','=','≠','<','>','in','∈','notIn','∉');
 begin
   result:=false;
 
@@ -381,6 +381,18 @@ begin
                 end;
               '<': istWahr:=strtofloat(u)<strtofloat(t);
               '>': istWahr:=strtofloat(u)>strtofloat(t);
+              'in','∈': begin
+                istWahr:=false;
+                t:=t+' ';
+                while (t<>'') and not istWahr do
+                  istWahr:=erstesArgument(t)=u;
+              end;
+              'notIn','∉': begin
+                istWahr:=true;
+                t:=t+' ';
+                while (t<>'') and istWahr do
+                  istWahr:=erstesArgument(t)<>u;
+              end;
               else begin
                 if assigned(prot) then prot.schreibe('Operator '''+binops[j]+''' ist nicht implementiert!',true)
                 else gibAus('Operator '''+binops[j]+''' ist nicht implementiert!',3);