omonien

Unit Foo;

interface
type
  TFoo = class(TObject)
  end;

implementation

end.

omonien

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

var
  SomeBytes: TBytes;
  SomeByte: Byte;

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

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