Accessviolation bei TJSON.ObjectToJsonObject mit TArray<T>

[shebang]

https://docwiki.embarcadero.com/RADS...ray_Properties

Zitat:

For array properties, access specifiers must list methods rather than fields.

Wobei dynamische Arrays dort nicht erwähnt werden.

[Der schöne Günther]

Zitat von shebang:

https://docwiki.embarcadero.com/RADS...ray_Properties

Zitat:

For array properties, access specifiers must list methods rather than fields.

Wobei dynamische Arrays dort nicht erwähnt werden.

Das greift hier nicht, weil er hat streng genommen keine "Array property" - Also das, was man in C# z.B. einen Indexer nennt.
Er hat eine normale Property, deren Typ halt ein Array ist.

[Uwe Raabe]

Außerdem interessiert sich TJSON.ObjectToJsonObject gar nicht für die Properties, sondern nur für die Felder.

Ich finde auch, ein konkretes Beispiel zum Nachstellen wäre hilfreich.

[Maliko]

Args. Ich hab den Fehler. Es hatte überhaupt nichts mit dem Array an sich zu tun.

Ich benutze folgende Schleife um das Array zu füllen:

Delphi-Quellcode:

while not mQuery.Eof do
begin
  mData := TDiagonalLimitVorgang.Create;

  try
    mData.internalInvoiceId := mQuery.FieldAsString('referenzid');
    mData.amount := mQuery.FieldAsFloat('fakturabetrag');
    mData.openAmount := mQuery.FieldAsFloat('fakturabetragrest');
    mData.paymentTagetDate := TASDateUtils.ConvertDateToInternational(mQuery.FieldAsString('zahlungszieldatum'));
    mData.dateOfEntry := TASDateUtils.ConvertDateToInternational(mQuery.FieldAsString('fakturadatum'));

    if(mData.amount <> mData.openAmount) then
    begin
      mData.paymentDate := TASDateUtils.ConvertDateToInternational(DateToStr(Self.GetPaymentDateByInvoice(mQuery.FieldAsString('mandantid'), mQuery.FieldAsString('vorgangid'), mQuery.FieldAsString('fakturaid'), mQuery.FieldAsString('versionid'))));
    end;

    SetLength(Result, Length(Result) + 1);
    Result[Length(Result) - 1] := mData;
  finally
    FreeAndNil(mData);
  end;

  mQuery.Next;
end;

Was passiert wohl mit dem Objekt im Array wenn ich im finally ankomme? Nachdem ich das FreeAndNil entfernt habe, funktionierte es einwandfrei.