diff options
| -rw-r--r-- | mystringlistunit.pas | 16 |
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); |