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
{$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 |
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 EnumArrayvsEnumSet; | |
{$APPTYPE CONSOLE} | |
{$R *.res} | |
uses | |
System.SysUtils; | |
type | |
TEnum = (plough, foo, bar, wtf); |
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
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 |
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
unit osAPITCPEngineServer; | |
interface | |
uses | |
IdCTypes, | |
IdContext, | |
IdComponent, | |
IdTCPServer, |