Datenstruktur: Kindobjekt als Objekt oder Record

[mytbo]

Zitat von Friday:

Aber wie seht ihr das Argument den Stack nicht unnötig mit langlebigen Daten zu befüllen?

Ich weiß nicht, warum du dir Sorgen um den Stack machst. So wie ich deine Anforderung verstanden habe, wird es vermutlich mit einem "array of ..." enden und damit landest du auf dem Heap. Auf dem Heap werden angelegt: Klassen, dynamische Arrays, alle gemanagten Typen (String, Variant, Interface) und Speicher der mit GetMem() oder New() angefordert wird. Daher funktioniert auch Folgendes problemlos:

Delphi-Quellcode:

uses
  mormot.core.base,
  mormot.core.data,
  mormot.core.text,
  mormot.core.json,
  mormot.core.unicode,
  mormot.core.variants,
  mormot.core.os,
  mormot.core.perf;

procedure SpeedTestRecords;
type
  TSubItem = record
    id: Integer;
    value: RawUtf8;
  end;
  TDataItem = record
    id: Integer;
    value: RawUtf8;
    subItem: TSubItem;
  end;
  TDataItems = array of TDataItem;
var
  json, xml: RawByteString;
  timer: TPrecisionTimer;
  items: TDataItems;
begin
  SetLength(items, 1000000);
  for var i: Integer := Low(items) to High(items) do
  begin
    items[i].id := i;
    items[i].value := StringToUtf8('value' + i.ToString);
    items[i].subItem.id := i;
    items[i].subItem.value := StringToUtf8('subItem_value' + i.ToString);
  end;

  timer.Start;
  json := DynArraySaveJson(items, TypeInfo(TDataItems));
  timer.Pause;
  FileFromString(json, '_testData.json');

  timer.Resume;
  xml := JsonToXML(json);
  timer.Pause;
  FileFromString(xml, '_testData.xml');

  WriteLn(Format('Total time: %s', [timer.Stop]));
end;

Habe ich schon erwähnt, dass mORMot diese 1M Records JSON und XML Serialisierung in 1 Sekunde schafft.

Bis bald...
Thomas