UweRaabe

{==============================================================================
        .
     .--:         :
    ----        :---:
  .-----         .-.
 .------          .
 -------.
.--------               :
.---------             .:.
 ----------:            .

UweRaabe

program MyJsonDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  REST.Json,
  MyJsonTypes in 'MyJsonTypes.pas';

const

UweRaabe

unit ActionHelper;

interface

type
  TActionHelper = class helper for TBasicAction
  private
    function GetOnChange: TNotifyEvent;
    procedure SetOnChange(const Value: TNotifyEvent);
  public

UweRaabe

Setting up Kallithea on Ubuntu Server 12.04

Preparation

1. Install Ubuntu Server.
2. Update Ubuntu with the commands:

UweRaabe

type
  TVariantArr = record
  private
    { implementation may differ }
    Data: Variant;
    Arr: TArray<Variant>;
    function GetItems(Index: Integer): Variant;
    procedure SetItems(Index: Integer; const Value: Variant);
  public
    class operator Implicit(A: TVariantArr): Variant; overload;

UweRaabe

unit uDesignNote;

interface

uses
  System.SysUtils, System.Classes, Vcl.Forms, Vcl.StdCtrls;

type
  TDesignNote = class(TComponent)
  private

UweRaabe

<?xml version="1.0" encoding="utf-8"?>

<codetemplate version="1.0.0" xmlns="http://schemas.borland.com/Delphi/2005/codetemplates">
	<template name="array[" invoke="auto">
		<description>
			sized array declaration
		</description>
		<author>
			Uwe Raabe
		</author>

UweRaabe

function NetUseAdd(const RemoteName: string): string;
var
  NetResource: TNetResource;
  dwResult, dwBufSize, dwFlags: DWORD;
  hRes: DWORD;
  localName: array[0..1024] of Char;
begin
  dwFlags := CONNECT_REDIRECT;
  ZeroMemory(@NetResource, sizeof(TNetResource));
  with NetResource do begin

UweRaabe

function IsPermanentConnection(const ALocalName: string): Boolean;
type
  PNetResourceArray = ^TNetResourceArray;
  TNetResourceArray = array [0 .. MaxInt div SizeOf(TNetResource) - 1] of TNetResource;
var
  I, BufSize, NetResult: Integer;
  Count, Size: LongWord;
  NetHandle: THandle;
  NetResources: PNetResourceArray;
begin

UweRaabe

procedure TdmScripting.PrepareScripter(AScripter: TIDEScripter);
begin
  AScripter.DefineClassByRTTI(TTwinCATVar);
  AScripter.DefineClassByRTTI(TTwinCATVarBOOL);
  AScripter.DefineClassByRTTI(TTwinCATVarBYTE);
  AScripter.DefineClassByRTTI(TTwinCATVarINT);
  AScripter.DefineClassByRTTI(TTwinCATVarLONG);
  AScripter.DefineClassByRTTI(TTwinCATVarSINGLE);
  AScripter.DefineClassByRTTI(TTwinCATVarDOUBLE);
  AScripter.DefineClassByRTTI(TTwinCATVarSTRING);