omonien

unit Unit1;

interface

function Foobar(AValue:integer):integer;

implementation
uses
  Unit2;

omonien

const
  CUSTOMERS = '{"customers":[{"name":"Olaf"},{"name":"Big Bird"}]}';
  CUSTOMERS_NULL = '{"customers":null}';

procedure TForm39.Button1Click(Sender: TObject);
var
  LContainer: TJSONValue;
  LCustomers: TJSONArray;
begin
  //Here, the value is not nil, so you can just go ahead with GetValue

omonien

//Concatenate two lists - which basically is what a union of two SQL SELECTS does
LCustomersUS := LManager.Find<TCustomer>
  .Where((Linq['Country'] = 'US') 
  .List;
LCustomersCA := LManager.Find<TCustomer>
  .Where((Linq['Country'] = 'CA') 
  .List;

LCustomersNorthAmerica.AddRange(LCustomersUS);
LCustomersNorthAmerica.AddRange(LCustomersCA);

omonien

program Project46;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;

var
  SomeBytes: TBytes;
  SomeByte: Byte;

omonien

Unit Foo;

interface
type
  TFoo = class(TObject)
  end;

implementation

end.

omonien

program GenericsIssue;
{$APPTYPE CONSOLE}
{$R *.res}

//Simplified test case for https://quality.embarcadero.com/browse/RSP-32427

uses
  System.SysUtils, System.Rtti;

type

omonien

program MemTest;

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

uses
  System.Classes, System.SysUtils, System.Contnrs;

const
  GMaxChars = 100;

omonien

program Interfaces;

{$APPTYPE CONSOLE}

{$R *.res}


uses
  LeakCheck,
  System.Classes, System.SysUtils;

omonien

unit JsonNaming.Foo;

interface

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

type
  TFoo = class(TObject)

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