From a0cada420db70e2dc257e85ce3054686d8402904 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 11 Aug 2015 11:28:00 +0200 Subject: mystringlistunit.pas expandMacros versteht jetzt auch binaere ist-Element-von-Operatoren --- mystringlistunit.pas | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'mystringlistunit.pas') 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)': 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); -- cgit v1.2.3-70-g09d2