Posted by jpluimers on 2020/11/04
SetLength can relocate the memory[WayBack] Pointers are dangerous – twm’s blog
Via: [WayBack] Pointers can be really helpful, especially they can improve performance and readability, but they are also dangerous. I spent nearly a day tracking down… – Thomas Mueller (dummzeuch) – Google+
–jeroen
Posted in Conference Topics, Conferences, Delphi, Development, Event, Software Development | Leave a Comment »
Posted by jpluimers on 2020/11/03
These are quite OK: [WayBack] GitHub – colinj/TDateTimeHelper: Helper record for TDateTime type in [WayBack] DateTimeHelper.pas with DUnitX tests in [WayBack] TDateTimeHelper.Tests.pas.
Via: [WayBack] Does Delphi XE 10.2.2 ship with type helpers for TDateTime type? Or do I need to implement my own. – Graeme Geldenhuys – Google+.
It got even promoted at [WayBack] Delphi XE3: Record Helpers for Intrinsic Types.
–jeroen
Posted in Delphi, Development, Software Development | Leave a Comment »
Posted by jpluimers on 2020/10/29
I totally missed that this has been added in Delphi a long time ago (at least in Delphi 2007 or maybe even before): the {$EXTENSION zzz} or {$E zzz} Delphi directive that sets the file extension of the output: [WayBack] Executable extension (Delphi 2007)
[WayBack] Executable extension (Delphi 10.3 Rio) – RAD Studio explains this is equivalent to using the -TZ
The documentation explains the zzz to be a string, but in practice, using {$EXTENSION yyy.zzz} and {$E yyy.zzz} fail:
[WayBack] Little funny bug… I wanted to quickly make two x86 EXE builds, with 3GB and normal 2GB of available memory. Just to pass it for heavy testing, as 3rd… – Arioch The – Google+ explains how to use this as a trick to have a different extension for 3GB aware compiled 32-bit executables:
{$DEFINE g3} // or obvious {.$DEFINE g3} {$IFDEF g3} {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE} {$EXTENSION 3GB.EXE} {$ENDIF}This kind of work in XE2 but with two funny bugs:
- the IDE ignores it and shows filename.exe in the compile progress dialog
- linker partially ignores it and creates
filename.4gbinstead offilename.3gb.exe
I did know about the various $LIBxxx directives that were introduced in Delphi 2009 when it [WayBack] was released in 2008.
Related:
{$LIBPREFIX 'string'}, {$LIBSUFFIX 'string'}, {$LIBVERSION 'string'}One day, I might create an overview of which directives are valid in what Delphi versions. That would be a big change of List-Delphi-Installed-Packages.ps1, which would need at least these:
–jeroen
Posted in Conference Topics, Conferences, Delphi, Development, Event, Software Development | Leave a Comment »
Posted by jpluimers on 2020/10/29
Few people seem to know about the FastMM PushAllocationGroup method.
This search returned almost nothing: fastmm PushAllocationGroup -site:github.com -site:sourceforge.net -site:stackoverflow.com – Google Search.
These results were convoluted:
These posts were interesting though, but most of them did not get any deeper into the topic than “look at the FastMM source”:
There were the only post giving a bit more insight:
–jeroen
Posted in Conference Topics, Conferences, Delphi, Development, Event, FastMM, Software Development | Leave a Comment »
Posted by jpluimers on 2020/10/28
Reminder to self: write a longer article on Delphi mocking as Spring4D mocking is much better than Delphi Mocks, especially because of code-completion reasons.
Spring4D has a Mock record that can return a Mock<T> on which you can verify using methods like Received.
See:
I got some code that I need to dig up from an old project with many more Spring4D Mock examples.
Note that:
container.AddExtension<TAutoMockExtension>: [WayBack] unit testing – How to Mock Spring4D Events with DUnit – Stack Overflow.For now, these are a start [WayBack] Delphi Unit Testing : Writing a simple spy for the CUT – Stack Overflow:
Sounds like a use case for a mock (I am using the term mock here because most frameworks refer to their various kinds of test doubles as mock)
In the following example I am using DUnit but it should not make any difference for DUnitX. I am also using the mocking feature from Spring4D 1.2 (I did not check if Delphi Mocks supports this)
unit MyClass; interface type TMyClass = class private fCounter: Integer; protected procedure MyProcedure; virtual; public property Counter: Integer read fCounter; end; implementation procedure TMyClass.MyProcedure; begin Inc(fCounter); end; end. program Tests; uses TestFramework, TestInsight.DUnit, Spring.Mocking, MyClass in 'MyClass.pas'; type TMyClass = class(MyClass.TMyClass) public // just to make it accessible for the test procedure MyProcedure; override; end; TMyTest = class(TTestCase) published procedure Test1; end; procedure TMyClass.MyProcedure; begin inherited; end; procedure TMyTest.Test1; var // the mock is getting auto initialized on its first use // and defaults to TMockBehavior.Dynamic which means it lets all calls happen m: Mock<TMyClass>; o: TMyClass; begin // set this to true to actually call the "real" method m.CallBase := True; // do something with o o := m; o.MyProcedure; // check if the expected call actually did happen m.Received(Times.Once).MyProcedure; // to prove that it actually did call the "real" method CheckEquals(1, o.Counter); end; begin RegisterTest(TMyTest.Suite); RunRegisteredTests(); end.Keep in mind though that this only works for virtual methods.
–jeroen
Posted in Conference Topics, Conferences, Delphi, Development, Event, Software Development, Spring4D | Leave a Comment »
Posted by jpluimers on 2020/10/27
If not done yet, try to improve this: [WayBack] Optional sort by name in LogMemoryManagerStateToFile · Issue #64 · pleriche/FastMM4 · GitHub
–jeroen
Posted in Delphi, Development, Software Development | Leave a Comment »
Posted by jpluimers on 2020/10/27
From a while ago, and – being on the back-end side mostly – I sometimes forget: [WayBack] delphi – Can I use an Edit Mask to format output? (not just validate input) – Stack Overflow
You can use the TField.OnGetText event or TNumericField.DisplayFormat property to modify how the text is being displayed.
Since you have a TStringField holding numbers, you have two choices:
- use a
TNumericFieldand theDisplayFormatproperty- use the
OnGetTextevent and do your own string formattingEdit:
Sam used this approach:
I implemented
OnSetTextandOnGetTextevent handlers. I already had theEdit Mask9999 9999 9999 9999;1;_so theOnSetTextwas justTStringField(Sender).Value := Trim(Text);and
OnGetTextwas justsValue := TStringField(Sender).Value; Text := Format('%s %s %s %s', [Copy(sValue, 1, 4), Copy(sValue, 5, 4), Copy(sValue, 9, 4), Copy(sValue, 13, 4)]);It works fine. Thanks.
–jeroen
Posted in Delphi, Development, Software Development | Leave a Comment »
Posted by jpluimers on 2020/10/22
Always interesting to see what others put on their Windows development systems, for instance: [WayBack] My toolkit – Roald’s blog
Everytime I (re)install my development computer I need to think about all the tools I need and use on a regular basis. For that reason, and maybe to inspire others, here’s my list of essentia…
–jeroen
Posted in .NET, Delphi, Development, Software Development, Windows Development | Leave a Comment »
Posted by jpluimers on 2020/10/22
An old trick that I tend to forget: [WayBack] delphi – How to convert a null terminated string to string? – Stack Overflow:
You can assign a null-terminated
PChardirectly to aString:function GetFileName(DiskName: TFileNameIO): string; begin Result := PChar(@DiskName); end;
It can work even on string literals and constants, where you can leave out the @, like in:
var S: string; begin S := PChar(FastMM4Messages.LogFileExtension;
Probably time to update the unit I mention in ISO 8601 Date, Time and DateTime in Delphi (was: Simple example to show DateTime.Now in ISO 8601 format on ideone.com | Online C# Compiler & Debugging Tool).
–jeroen
Posted in Delphi, Development, Software Development | Leave a Comment »
Posted by jpluimers on 2020/10/21
[WayBack] Top 45 Best Automation Testing Tools Ultimate List • Test Automation Made Easy: Tools, Tips & Training Awesomeness A few notes, partially related to Enable your device for development – UWP app developer | Microsoft Docs.
One research project I had a while ago, was to see how it was possible to use a generic testing tool like Katalon Studio (that can test many platforms), for testing Windows applications.
Katalon uses a Selenium interface that normally is used for web applications through the [WayBack] WebDriver protocol (formerly [WayBack] JsonWireProtocol) that continues to be updated: [WayBack] draft upcoming WebDriver protocol, which is more generic than just web applications:
Posted in .NET, Conference Topics, Conferences, Delphi, Development, Event, Software Development, Windows Development, WinForms, WPF | Leave a Comment »
The Wiert Corner - irregular stream of stuff 
$RTTIdirective, you can use a little trick and redefine it in subclass inpublicsection asoverride; abstract;this will cause the RTTI to be generated. – Honza RFeb 5 ’16 at 8:02