Accessviolation bei TJSON.ObjectToJsonObject mit TArray<T>

[Der schöne Günther]

Toll dass du die Definitionen für TLimit und TLimitVorgang schon geliefert hast.

Hast du auch noch einen Dreizeiler zum Nachstellen?

Weil bei mir läuft das ohne Probleme durch:

Delphi-Quellcode:

uses
  System.SysUtils,
  System.JSON,
  Rest.JSON;

procedure p();
var
   limit: TLimit;
   limitAsJson: TJSONObject;
   convertedBack: TLimit;
begin
   limit := createLimit();
   limitAsJson := TJson.ObjectToJsonObject(limit);
   convertedBack := TJson.JsonToObject<TLimit>(limitAsJson);
end;

Der Vollständigkeit halber noch:

Delphi-Quellcode:

function createLimit(): TLimit;
var
   vorgang1, vorgang2: TLimitVorgang;
begin
   vorgang1 := TLimitVorgang.Create();
   vorgang1.internalInvoiceId := 'A';
   vorgang1.amount := 42.0;
   vorgang1.openAmount := 12.0;
   vorgang1.paymentTagetDate := 'B';
   vorgang1.dateOfEntry := 'C';
   vorgang1.paymentDate := 'D';

   vorgang2 := TLimitVorgang.Create();
   vorgang2.internalInvoiceId := 'X';
   vorgang2.amount := 99.9;
   vorgang2.openAmount := -15.5;
   vorgang2.paymentTagetDate := 'Y';
   vorgang2.dateOfEntry := 'Z';
   vorgang2.paymentDate := '?';

   Result := TLimit.Create();
   Result.limit := 44.4;
   Result.freeLimit := 0.1;
   Result.openInvoices := [vorgang1, vorgang2];
end;