Uwe Raabe

Does anyone know what must be done to connect a Delphi 10.4.2 FireDAC application for MacOS (High Sierra and up) to a MySQL server? The docs are probably a bit outdated still referencing an x86 client.

@Dmitry Arefiev Thanks, Dmitry! I did that and placed the file directly into the app folder. Renamed it to libmysqlclient.dylib (first tried with the corresponding link dylib) and started a simple test program. Unfortunately it still claims that it cannot load this dylib or the two alternative ones. I can see in the debugger that the SafeLoadLibrary call fails.

I guess he meant TVirtualImage instead of TVirtualImageList.

The background setting is theme agnostic. There are at least three Background_XXX entries in the Welcome Page subkey of the BDS\22.0 registry key. The problem with the settings dialog is that it only saves the changes for the selected (in that dialog) theme. Unsaved changes to previously selected themes are simply forgotten. There is a QP entry for that: Welcome Page background image does not always save changes

Obvious often lies in the eye of the beholder. I for myself work with light theme only, so I probably wouldn't have noticed that for ages.

Strange. I can confirm what @Dalija Prasnikar reported about a 50% reduction in a comment above. For Win32 changing num from Int64 to Integer reduces the time from 5.8 seconds down to 3.5 seconds. For Win64 the runtime for Int64 is way higher (10.4 seconds) than for Win32 (5.8 seconds), but reduces to a slightly better value for num being Integer: 3.4 seconds.

No, I am calculating the sums. These are the numbers for Win32: Loop: 233333334166666668 elapsed: 3554.07020 ms Calc: 233333334166666668 elapsed: 0.00030 ms Counting all multiples of 3 between 1 and N is N div 3. Let's name that N3. So one can write the Sum of those as total3 := 0; for I := 1 to N3 do total3 := total3 + 3*I; We can now get the 3* out of the sum and get total3 := 0; for I := 1 to N3 do total3 := total3 + I; total3 := 3*total3; Using the well known sum(1..n) formula n*(n+1)/2, we end up with what I wrote above for tot3. Do the same with 5 to get the second term of the result tot5. Now we have to take care of the numbers that are multiples of 3 and 5, as up to now they are added twice. That's where the 15 comes into play with tot35.

Speaking about algorithms: const cnt = 1000000000; var total: Int64; tot3: Int64; tot5: Int64; tot35: Int64; cnt3: Int64; cnt5: Int64; cnt35: Int64; begin cnt3 := cnt div 3; cnt5 := cnt div 5; cnt35 := cnt5 div 3; tot3 := 3*(cnt3*(cnt3 + 1) div 2); tot5 := 5*(cnt5*(cnt5 + 1) div 2); tot35 := 15*(cnt35*(cnt35 + 1) div 2); total := tot3 + tot5 - tot35; end; Execution time is less than 1 Millisecond.

That will work for num, but the total may actually exceed that. After all it is the sum of all 3d or 5th numbers. Can you elaborate on how such a simple assignment would look like?

Should be available form your my.embarcadero.com account.

I wouldn't say so - at least as I tend to handle it. I write about things I find interesting or assume it being interesting to others. As a coincidence it mostly happens to be about Delphi. If that somehow disqualifies me from being an MVP - so be it. I'm confident, they would lose more than me.

Without going into details, it merely boils down to blogging, writing, discussing, answering and presenting all sorts of things related to Embarcadero products. Speaking for myself, I invest a good time into this forum and its German counterpart, as well as pestering people to file valuable bug reports.

That may as well be, but besides the undeniable benefits it comes with some obligations.

That must not be the actual reason for ending ones MVP status. Being an MVP needs a significant amount of time which not everyone is able or willing to invest.

I think it started with 10.4.1

No, in System.pas. That's why you cant' use IFDEF here.

{$IF RTLVersion111}

Does it help when you add the complete path to the file instead only the file name?

That must indeed be a scenario being totally ignored when designing the HighDPI designer. If they only had asked us before...

At least they can add four items to the bugs fixed list while actually only fixing one

Seems it is already reported: https://quality.embarcadero.com/browse/RSP-37378

Can you find something suspicious in the GetItInstall.log located in $(BDSCOMMONDIR) ?

At least I can find it in my installation. So it is not missing files in delivery.

IIRC, keeping the registry settings is something the uninstaller does (or does not).

It would be helpful if we could identify the reason why it doesn't work for some of us.