-
Content Count
1937 -
Joined
-
Last visited
-
Days Won
25
Everything posted by Attila Kovacs
-
doubleclick
-
I will be less active for a few weeks
Attila Kovacs replied to Lars Fosdal's topic in Community Management
Wish you a full recovery. -
https://www.extremetech.com/computing/318020-flaw-current-measurements-x86-versus-apple-m1-performance still impressive
-
Refactor menu grayed out for Rename...
Attila Kovacs replied to Mr. Daniel's topic in Delphi IDE and APIs
a right click in the editor enables it again, old bug -
Who by? It's a race condition, nothing to prove. Not to mention that those implementations could change.
-
I had similar phenomenon after reinstalling 10.2, though only for a moment then it went away. The freshly installed component wasn't loaded. The IDE decided to treat it as a "dynamic package" and loaded/unloaded it depending on the project.
-
I have news regarding to IDE hang. I took the time (lot) to attach the frozen IDE to a debugger and find followings: there is a infinite message loop, affected are tlbEntityInsight NameBtn some child controls of NameBtn without any component name nor text TypeNameBtn some child controls of TypeNameBtn without any component name nor text the infinite message loop is a variation of these messages: 1328 TCM_ADJUSTRECT 46 WM_WINDOWPOSCHANGING 7c WM_STYLECHANGING 7d WM_STYLECHANGED 1328 will be triggered from: function TCustomTabControl.GetDisplayRect: TRect; Looks like this whole entity thingy is on: TAppBuilder->TEditorDockPanel->TEditWindow->TPanel Also, I have this EntityInsight turned off in the configuration. Actually I'm only using the open unit function from MMX. It happens rarely, especially on fast finger actions like formatting, saving quickly, and meanwhile the mouse is over an entity in the editor and tries to evaluate it. But then the IDE won't recover from this message loop. For the record, there is always a chance that other things are also playing a role, especially when we are debugging windows messages, so take this info as an observation, maybe it helps finding something.
-
@FredS Oh, thx for saying, didn't know that there was a cut. I'll go with v14 too.
-
Fighting the bloat: Delphi links unnecessary files (COM library projects)
Attila Kovacs replied to A.M. Hoornweg's topic in RTL and Delphi Object Pascal
Well, no pain, no gain. Used to I also stripped every RTTI because I was annoyed of the binary sizes, but once you get hooked with RTTI and its benefits, there is no back. I can remember watching those code snippets and conversations back to the days on G+ and always thought, man, for WTF do they need that, they are crazy. -
Well, after more than a week without MMX (removed) I can say that not just there is no more IDE Hang's but the IDE become faster. I suspect, that even after turning off the entityinsight, it sets itself to invisible but still working in the background for some reason. On the other hand I'm missing some functions very badly.
-
It's slightly offtopic but I can't just pass over it. Sql Server (from 2008 I think) offers indexes with a "WHERE" clause, for example if you want to rule out duplicate values but permit duplicate NULL's you can write: CREATE UNIQUE NONCLUSTERED INDEX [YourIndexName] ON [YourTableName] (YourFieldName) WHERE [YourFieldName] IS NOT NULL This is sensational. I should read more whatsnew.txt's.
-
Actually you don't need it if you put the data into a separate table, but I was a lazy dog and googled it up. Never ever used before. Not sure even if I can keep it this way until I finished implementing.
-
You know what? Now I know what will I do if I have some days off. I'll try to port my app to FB as it supports cte too. \o/
-
@Dany Marmur Actually they are right and this also makes sense! I'm happy you come up with FB, good to know even if I'm not using it. Maybe someone reads that.
-
Can Delphi randomize string 'Delphi'?
Attila Kovacs replied to Mike Torrettinni's topic in Tips / Blogs / Tutorials / Videos
That was a waste of time and energy.. You should read more RTL code and the answers to your questions!! -
Can Delphi randomize string 'Delphi'?
Attila Kovacs replied to Mike Torrettinni's topic in Tips / Blogs / Tutorials / Videos
You could run this to check if Delphi's random() is able to generate the consecutive numbers of 29 4 11 15 7 8 which are the characters of 'Delphi' taken from the desired (zero based) set 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'. It iterates 4.29 billion possibilities in only 20 seconds on my notebook. vRndString := ''; z := Low(integer); RandSeed := z; vSW := TStopWatch.StartNew; while z < MaxInt do begin if Random(52) = 29 then if Random(52) = 4 then if Random(52) = 11 then if Random(52) = 15 then if Random(52) = 7 then if Random(52) = 8 then begin vRndString := 'Delphi'; WriteLn(Format('%s found in %d ms with seed of %d', [vRndString, vSW.ElapsedMilliseconds, RandSeed])); Break; end; Inc(z); RandSeed := z; end; if vRndString = '' then WriteLn(Format('not found in %d ms', [vSW.ElapsedMilliseconds])); ReadLn; And as an example you could use 'VWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTU' with a seed of -1929919901 to get 'Delphi'. for vPhrase in cPhrases do begin RandSeed := -1929919901; ... -
Can Delphi randomize string 'Delphi'?
Attila Kovacs replied to Mike Torrettinni's topic in Tips / Blogs / Tutorials / Videos
But they don't use random in bruteforcing as it has no benefits. -
Try - except - finally generates no debug-breakpoint in Exception scope
Attila Kovacs replied to Rollo62's topic in RTL and Delphi Object Pascal
I'm wondering if it has something to do with the try/except/finally tweak introduced in the new compiler and the debugger is lacking behind? -
Can Delphi randomize string 'Delphi'?
Attila Kovacs replied to Mike Torrettinni's topic in Tips / Blogs / Tutorials / Videos
Why would you assume that? Because it's written in Delphi or because you don't know the basics of randomness? -
does it runs on IB? maybe this would give you some hints SELECT RNO, COUNT(*) FROM CUSTACC GROUP BY RNO HAVING COUNT(*) > 1
-
This is called the generic navigation. 😛
-
I'm afraid you are the only one who can do that as we don't know what do you want to do there.
-
Your subselect (SELECT C.RNO FROM CUSTACC C WHERE C.CUSTNO=P.CUSTNO) returning more than 1 rows and the server doesn't know what do you want to do. Either change the subselect to return only 1 row or use an aggregate function in the subselect like SUM() to make one result from the returned rowset.
-
@balabuev There was a setting for the delay AFAIR, isn't it?
-
Do we have a working lib/class which implements TNothingable<T> in Delphi? Where "null" is a valid value. For simple types I could achieve that relative easily, for structured types it's funnier to implement.