Skip to content

Instantly share code, notes, and snippets.

Lars Fosdal LarsFosdal

View GitHub Profile
@LarsFosdal
LarsFosdal / FDC.CommandLine.pas
Last active Jul 1, 2020
FDC Generic Command Line Parser for Delphi 10.3.x
View FDC.CommandLine.pas
unit FDC.CommandLine;
/// <summary>
/// Written by Lars Fosdal, August 2019, Delphi 10.3.1
/// Your license to use and modify follows the Attribution-ShareAlike 4.0 International (CC BY-SA 4.0) license rules.
/// https://creativecommons.org/licenses/by-sa/4.0/
/// </summary>
interface
uses
@LarsFosdal
LarsFosdal / EnumArrayvsEnumSet.dpr
Created Feb 18, 2019
Delphi pitfalls: Enumerated types and for loops
View EnumArrayvsEnumSet.dpr
program EnumArrayvsEnumSet;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
type
TEnum = (plough, foo, bar, wtf);
@LarsFosdal
LarsFosdal / MODBUS.PAS
Created Jul 3, 2017
Ancient Generic PLC wrapper code and Modbus implementation.
View MODBUS.PAS
{$I CODEDEFS.PAS} {Include code generation definitions}
{DEFINE Debug}
UNIT ModBus; {.3 (c) 19880812 Lars Fosdal}
{----------------------------------------------------------------------------}
{ Short System Description }
{----------------------------------------------------------------------------}
{
Source : Turbo Pascal v.4.0
Author : Lars Fosdal
You can’t perform that action at this time.