Fritzew

yes that was my thinking

Why using a finally here and not an except block? Then you will only free it if there is a Exception.

Yes, it was one of the best moves we have done. The Layout-Control is a amazing component. We have refactored a big application to it (around 300 Forms) and it that has solved all of the problems with High-DPI. But the best, all of the translations problems, length of text's in label's etc are gone now. We supporting 7 languages.

Hello all, is the a working actual modbus tcp implementation around? Got a new project to work on for a cnc. To be honest I have never used modbus myself so I'm don't know

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