Not in & is not

[bytebites]

Delphi 13 introduced "not in" and "is not" operators, which are one more pain for the parser.

[AlexTP]

'not in' allows to remove brackets-level: not (a in v_set).
It is good idea.
Same for other one, maybe.

[Bart]

What's next: not =?, not <? not is not in?

Bart

[Thaddy]

Links: https://docwiki.embarcadero.com/RADStudio/Florence/en/What%27s_New#Updates_to_the_Delphi_Compiler
https://docwiki.embarcadero.com/RADStudio/Florence/en/Expressions_(Delphi)#The_is_not_and_not_in_Operators

They also finally copied our {$push}{$pop} with a slightly different syntax of course....

I like the new option that lets you specify the long name of a compiler define in {$ifopt}

[AlexTP]

What's next: not =?, not <? not is not in?

'not =' is the same as '<>'.
'not <' is the same as '>='. In these cases 'not' is unneeeded.

[Bart]

'not <' is the same as '>='. In these cases 'not' is unneeeded.

I was aware of this.
I was just trying to express my dismay about this abomination.

Bart

[Leledumbo]

Just a syntactic sugar, has no real value. However, I've been on sugar free diet for almost 2 years now, never feel better, so I have no support for the idea. Maybe if someone is interested in implementing, keep it under {$mode delphi}.

[Warfley]

The "is not" is certainly a breaking change, as the following is completely valid pascal (even though if you ever write something like this you should probably question your life choices):

Code: Pascal  [Select][+][-]

1. type
2.   TTest =record end;
3.  
4. function Test: TTest; begin end;
5.  
6. operator not(x:TTest): TClass;
7. begin
8.   Result:=TStrings;
9. end;
10.  
11. begin
12.   if TStringList.Create is not Test then
13.     WriteLn('Oopsie');
14. end.

The not-in on the other hand would be easily implementable, even though it would be quite an unecessary change. If it can be overloaded seperately from the in operator it could be used to implement some more efficient lookups for hashsets or something something bloom filter, but outside a few edge cases it wouldn't serve much purpose

Edit: Just fired up D12 and this also compiles as expected:

Code: Pascal  [Select][+][-]

1. type
2.   TTest = record
3.     class operator LogicalNot(x: TTest): TClass;
4.   end;
5.  
6. class operator TTest.LogicalNot(x: TTest): TClass;
7. begin
8.   Result:=TStrings;
9. end;
10.  
11. function Test: TTest; begin end;
12.  
13. begin
14.   if TStringList.Create is not Test then
15.     WriteLn('Oopsie');
16. end.

[LeP]

Edit: Just fired up D12 and this also compiles as expected:

This doesn't work anymore in D13.