Compiling with Delphi 10.0 Seattle

[jrathlev]

1. TStringList.AddPair is not available in Delphi 10.0 Seattle.

Proposed workaround:

{$IF CompilerVersion <31.0}  // 10.1 Berlin
type
  TStringListHelper = class helper for TStringList
    function AddPair (const AName,AValue : string) : integer;
    end;

{ ------------------------------------------------------------------- }
function TStringListHelper.AddPair (const AName,AValue : string) : integer;
begin
  Result:=Add(AName+NameValueSeparator+AValue);
  end;
{$ENDIF}

2. TJsonArray has no default property

Propsed change:

JSO2 := JSA.Items[0] as tjsonobject;

[DeveloppeurPascal]

Thanks, I'll install a Seattle on a VM and will update the library soon.