"Jarrod Hollingworth" "Colin Johnsun" "Graham Ritchie" "Ian Krigsman" "James D Duff" "Kim Bracknell" "Mathias Burbach" "Misha Charrett" "Niels Maschmeyer" "Paul Jervois"
Paul McGee pmcgee69
pmcgee69
/ Multi_Case.dpr
Last active
May 14, 2024 16:03
Sergey Antonov - 2010 - Blog post : Just Any type Delphi Case statement
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {$APPTYPE CONSOLE} | |
| program Multi_Case; | |
| // Also see - http://delphi.fosdal.com/2010/12/generic-case-for-strings.html | |
| // - http://delphi.fosdal.com/2010/12/generic-cache.html | |
| uses system.SysUtils, system.Generics.Defaults; | |
| // Just Any type Delphi Case statement (2010) | |
| // Sergey Antonov Blog |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {$APPTYPE CONSOLE} | |
| program Nulls_in_Delphi; | |
| uses | |
| System.SysUtils; | |
| const nl = sLineBreak; | |
| procedure print(a:pointer;b:longint; s:string); | |
| begin | |
| writeln( longint(a).ToHexString, ' ', b.ToHexString, ' ', s); |
pmcgee69
/ Simplified Auto Ref Counting.txt
Created
August 3, 2023 15:59
— forked from Pasquina/Simplified Auto Ref Counting.txt
A Delphi Console Application to illustrate Automatic Reference Counting (Simplified)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program AutoFreeTest; | |
| {$APPTYPE CONSOLE} | |
| {$R *.res} | |
| uses | |
| System.SysUtils, | |
| System.Classes; | |
| type | |
| IAutoFree = interface |
DUnit-M
Pascaliburnus - Data driven unit testing for Delphi
pmcgee69
/ keybase.md
Created
October 12, 2021 04:17
I hereby claim:
- I am pmcgee69 on github.
- I am paulmcgee (https://keybase.io/paulmcgee) on keybase.
- I have a public key whose fingerprint is 8DD8 B479 B84A 1A98 2477 F21B A694 C45B C584 7FFE
To claim this, I am signing this object:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- Reader / unReader syntax | |
| newtype Reader e a = Reader { unReader :: e -> a } | |
| :t Reader | |
| :t unReader | |