Fritzew

Wow, i was playing with this tool now for an hour or so, using a large c++ project. Amazing work

There could be done a lot in the language: In Elements: case myControl of Button: writeln("Looks like a button!"); CheckBox: writeln("This one's a checkbox"); else writeLn("No ide what this is!?"); end; or something like: var i: Integer; var s := case i of 0: 'none'; 1: 'one'; 2: 'two'; 3..5 : 'a few'; else 'many'; end; I like it. If somebody is interested in what can be done look at https://docs.elementscompiler.com/Oxygene/Language/ Using Elements a lot these days, it is always a shock come back to Delphi.... Not speaking about Lambdas..... Delphi: for item in List.Where( function(part : TPart): boolean begin result := part.isVisible; end ) do; Elements: for each item in List.Where(part -> part.isVisible) do;

Yes, please! proper namespacing like in Remobjects.Elements would be ...........

It is in the master since sept 03 2018. Maybe you should update your clone?

For Devexpress it will work..... But if you want to go sure just use their installer and recompile

You are right and I I need a break for sure..... int32max := Int64(MaxInt) + 1; // will work Shame on me

Delphi 10.3.2 This code will not compile! Stripped down from a TestSuite for our codebase. Can't believe it. program Project17; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; Procedure Test; var int32max: Int64; begin int32max := MaxInt + 1; //Error here writeLn(Format('Integer %20d', [int32max])); writeLn(Format('Integer %20u', [-int32max])); end; begin try Test; readln; except on E: Exception do writeLn(E.ClassName, ': ', E.Message); end; end. Error (in German) [dcc32 Fehler] Project17.dpr(13): E2099 Überlauf bei Konvertierung oder arithmetischer Operation

There is a commit from yesterday on Bitbucket, so I think you should update......

Yes this look like a nightmare, if you want to parse the source and not only create a AST

You are completely wrong here.... It will never work...... procedure TestSmall; var lPoint : TPoint; sPoint : TSmallPoint; begin sPoint := default(TSmallPoint); lpoint.x := 255; lpoint.y := 255; writeln('lPoint.x: '+lPoint.x.ToString+ ' lPoint.y: '+lPoint.y.ToString); sPoint := TSmallPoint(lpoint); writeln('sPoint.x: '+sPoint.x.ToString+ ' sPoint.y: '+sPoint.y.ToString); end; Compile and run.......

Thanks Remy, not only for this also of your work over all the years now

Found today in System.Types........ class operator TPoint.Explicit(Value: TPoint): TSmallPoint; begin if Value.x < Low(SmallInt) then Result.x := Low(SmallInt) else if Value.x > High(SmallInt) then Result.x := High(SmallInt) else Result.x := SmallInt(Result.x); if Value.y < Low(SmallInt) then Result.y := Low(SmallInt) else if Value.y > High(SmallInt) then Result.y := High(SmallInt) else Result.y := SmallInt(Result.y); end; Useless and wrong Code...

The funny thing is, there was a OpenGl Layer for Windows working really well at this time. (I'm also a lifetime customer, my "lifetime" was 4 or 5 month.....). After the purchase the OpenGl part was dropped, not longer usable, and older Delphi not more supported. It was one of the worth purchase i have ever done.

But all on the same day........

If this is true, then Embarcadero is not anymore a Partner you can trust.