Lars Fosdal

Thanks, Eugene. Updated.

Well, it would be practical to have a bare bones stack trace tool for all supported platforms.

I sometimes use these where a method has been broken into sub-routines to create more readable code, but more often than not, I tend to pass arguments to these sub-routines as parameters.

Doesn't mention architecture, though - Intel vs ARM.

It is not too complex to write the classes required to handle this, and decide how to orientate rows vs columns. I did that for TMS TAdvStringGrid, where I first collect the data into a matrix (by column, then by row), then stuff the content into the grid in the orientation I prefer, automatically setting up the grid props, handling rows, cols, width sizing as well as titles, etc. The matrix can be filled from a database query, or from a list of objects, or by code. I wish I had time to do a rewrite for TStringGrid, as the lib has too much proprietary code to share as is.

S = GlobalUseSkia V = GlobalUseVulcan GlobalUseSkiaRasterWhenAvailable = False HW: Lenovo P16 Name NVIDIA RTX A4500 Laptop GPU PNP Device ID PCI\VEN_10DE&DEV_24BA&SUBSYS_22DB17AA&REV_A1\4&35D2CA85&0&0008 Adapter Type NVIDIA RTX A4500 Laptop GPU, NVIDIA compatible Adapter Description NVIDIA RTX A4500 Laptop GPU Name Intel(R) UHD Graphics PNP Device ID PCI\VEN_8086&DEV_4688&SUBSYS_22FB17AA&REV_0C\3&11583659&0&10 Adapter Type Intel(R) UHD Graphics Family, Intel Corporation compatible Adapter Description Intel(R) UHD Graphics

You should report it. Remember to include screen resolution, DPI, scaling, etc. Also mention WHEN it crashes on drag. As soon as it is starting to appear on the second screen, or fully on second screen, or only at mouse release. I don't use split screen on a second display as I have a huge 40" display.

Depends on the Social medium 🙂 https://mastodon.social/@LarsFosdal.rss

Quite a few sites still support RSS. Even those that don't announce their support, can have a living www.site.com/rss URL. One of the enemies of RSS, are Paywalls.

@saeedbay Ref MARS - Don't explicitly set it to 'Yes'. Leave it to the driver default. // Multiple Active Result Sets http://msdn.microsoft.com/en-us/library/ms131686.aspx if DisableMARS then Params.Values['MARS'] := 'No'; Do you use threads? Do you call CoInitialize/CoUninitialize per thread? Do you exec your queries in the same thread as you create them? Do you reuse queries? Do you make sure to reuse them only in the thread they were created? Do you reuse the queries that are already in use? - Don't. Do you only do reads with the query? - Test if Query.FetchOptions.Unidirectional := True; gives you more speed. Is the form created in the .dpr? Don't do that. procedure TSomeParent.ShowTheForm; begin var form := TYourForm.Create; // feed it with values if needed try if form.ShowModal = mrOK then ; // deal with the results if needed finally form.free; end end; If you want to have only one instance of the form at a time, deal with that, f.x. with critical sections or similar. Do you use MadExcept or EurekaLog or similar? If not, you should - it really helps for pinpointing issues

The more details you provide, the more likely it is that someone with Skia experience may be able to help. Ping @vfbb

Capture your query and run it in SSMS to get the execution plan. Perhaps you can improve performance with indexes.

Can you create a small app that demonstrates the problem and that you can share?

Awesome!

EmptyWorkingSet discussion moved to on request from @DelphiUdIT

What kind of graphics hardware are you running on?

@michel.seicon In theory, it could be related to Ref. https://stackoverflow.com/questions/48651432/glibc-application-holding-onto-unused-memory-until-just-before-exit Delphi memory manager on Linux wraps malloc, so the question then becomes - is it possible to invoke malloc_trim from Delphi for Linux? I suggest you clean up the test program to run correctly, and report it at https://qp.embarcadero.com with a proper description of the differences in behavior. That way we might get some information from EMBT.

It is compatible with all MS SQL servers. Currently using the same FireDAC integration with 2008, 2012, 2016,2017 and 2019. How do you parameterize your connection? Have you double checked that your query doesn't pull back a massive amount of data? Check the FireDAC Monitor to see if it offers any clues. Which driver are you using? I recommend using the ODBC drivers. class function TPSDFireDatabasePoolMSSQL.FindBestDriver(const Link: TFDPhysMSSQLDriverLink): String; const // Constants copied from implementation section of FireDAC.Phys.MSSQL C_SQL_SERVER = 'SQL Server'; // DO NOT TRANSLATE C_2019_ODBC = 'ODBC DRIVER 19 FOR SQL SERVER'; // DO NOT TRANSLATE C_2018_ODBC = 'ODBC DRIVER 18 FOR SQL SERVER'; // DO NOT TRANSLATE C_2017_ODBC = 'ODBC DRIVER 17 FOR SQL SERVER'; // DO NOT TRANSLATE C_2016_ODBC = 'ODBC DRIVER 13 FOR SQL SERVER'; // DO NOT TRANSLATE C_2012_ODBC = 'ODBC DRIVER 11 FOR SQL SERVER'; // DO NOT TRANSLATE {$IFDEF POSIX} C_FreeTDS = 'FreeTDS'; // DO NOT TRANSLATE {$ENDIF} {$IFDEF MSWINDOWS} C_2012_NC = 'SQL SERVER NATIVE CLIENT 11.0'; // DO NOT TRANSLATE {$ENDIF} var DriverList : TStringList; WantedList : TArray<String>; Driver: string; begin Result := ''; // Blank = Default WantedList := {$IFDEF MSWINDOWS} {$IFDEF SQLNative} [C_2012_NC, C_2017_ODBC, C_2016_ODBC, C_2012_ODBC] {$ELSE} [C_2018_ODBC, C_2017_ODBC, C_2016_ODBC, C_2012_NC, C_2012_ODBC] {$ENDIF} {$ENDIF} {$IFDEF POSIX} [C_2018_ODBC, C_2017_ODBC, C_2016_ODBC, C_2012_ODBC, C_FreeTDS] {$ENDIF}; DriverList := TStringList.Create; try Link.GetDrivers(DriverList); DebugOut('Available SQL drivers'); // DO NOT TRANSLATE for Driver in DriverList do DebugOut(' "' + Driver + '"'); for var Wanted in WantedList do for Driver in DriverList do begin if CompareText(Wanted , Driver) = 0 then begin DebugOut('Selected driver: "' + Driver + '"'); // DO NOT TRANSLATE BestDriver := Driver; Exit(Driver); end; end; finally DriverList.Free; end; end;

It was Eurekalog. 32-bit 64-bit Lenovo P16 Processor 12th Gen Intel(R) Core(TM) i7-12850HX, 2100 Mhz, 16 Core(s), 24 Logical Processor(s)

That is weird! Maybe it is EurekaLog?

Another artifact I find alarming: change it to a Windows 64-bit build, and the performance drops like a rock. 32-bit (around 6k ms) 64-bit (around 34k ms per loop)

A workaround could be to explicitly allocate system memory outside of the regular memory manager, but that would require using specific methods for each platform. How does that work with memory allocations in FastMM?

The while true causes an infinte loop, which doesn't do anything but looping and sleeping after the first run, so why this can't run for days and days witout running out of memory, is a bit of a mystery. How do you monitor the memory usage? Building these fairly large strings will have the MemoryManager allocate memory blocks which will remain allocated (and reusable) after you free your classes. These will be allocated from system memory until the application exits. In some corner cases, you can have memory fragmentation, which is caused by the elements in the list of released blocks of memory, being to small to be reused to hold the new objects, but in you example, that is not the issue. The line TListaString(V_Listas[0]).V_String := ''; is not necessary, as the string type is reference counted and automatically will be released. Apart from that, I guess there is a point to why you are NOT using TStringList, but using other containers and methods in classes to encapsulate reused code, could greatly reduce the amount of code duplication - which again reduces the potential for errors. See System.Contnrs TObjectList and System.Generics.Collections TObjectList for examples of lists that can manage your objects. Tip - For the purpose of testing, you would want each time you test to be identical - hence setting RandSeed to a fixed value at the start will ensure you have repeatable execution.

Did you try with a new .dproj file?

I still have a Memotech MTX512 in storage 🙂