omonien

program ForLoopExecutionOrder;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

begin
  try

omonien

program ForLoopOverflow;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

begin
  // Using unsigned ints or "short" types may lead to unexpected behaviour.

omonien

program XmlDemo;

{$APPTYPE CONSOLE}

{$R *.res}


uses
  Winapi.ActiveX,
  System.Classes, System.SysUtils, System.IOUtils,

omonien

procedure TFormMain.ProcessXml(const AXml: string);
begin
  var
  LXmlDoc := TXMLDocument.Create(nil);
  try
    LXmlDoc.DOMVendor := DOMVendors.Find(OmniXML4Factory.Description);
    LXmlDoc.LoadFromXML(AXml);
    // if AXml is invalid, then an exception will be thrown
    // Do further processing here
  finally

omonien

program Countries;

{$APPTYPE CONSOLE}

{$R *.res}


uses
  System.Classes, System.SysUtils, System.Generics.Collections;

omonien

procedure PrintValue(const Value: TObject; const ValueType: TType);
var
  TypeCode: TTypeCode;
  TypeData: PTypeData;
  TypeInfo: PTypeInfo;
begin
  if Value = nil then
  begin
    WriteLn(ValueType);
    Exit;

omonien

program CurrencyTests;

{$APPTYPE CONSOLE}

{$R *.res}


uses
  System.SysUtils;

omonien

object FormBase: TFormBase
  Left = 0
  Top = 0
  Caption = 'FormBase'
  ClientHeight = 441
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12

omonien

unit JsonNaming.Foo;

interface

uses
  System.Classes, System.SysUtils,
  REST.Json.Types;

type
  TFoo = class(TObject)

omonien

program Interfaces;

{$APPTYPE CONSOLE}

{$R *.res}


uses
  LeakCheck,
  System.Classes, System.SysUtils;