Einzelnen Beitrag anzeigen

mytbo

Registriert seit: 8. Jan 2007
472 Beiträge
 
#11

AW: Wie kann man Informationen eines Arrays ermitteln?

  Alt 10. Sep 2022, 20:27
..., mir geht es um die Größe wenn man das ganze zum Beispiel auf Festplatte sichern möchte oder in einem Stream schreiben etc, ...
Du verwendest doch mORMot. Warum dann nicht hier?
Delphi-Quellcode:
uses
  mormot.core.base,
  mormot.core.data,
  mormot.core.text,
  mormot.core.json,
  mormot.core.rtti;

var
  binary: RawByteString;
  mulDimArr: TIntegerDynArrayDynArray;
begin
  SetLength(mulDimArr, 2);
  SetLength(mulDimArr[0], 2);
  mulDimArr[0][0] := 3;
  mulDimArr[0][1] := 4;
  SetLength(mulDimArr[1], 3);
  mulDimArr[1][0] := 2;
  mulDimArr[1][1] := 5;
  mulDimArr[1][2] := 8;

  binary := DynArraySave(mulDimArr, TypeInfo(TIntegerDynArrayDynArray));
  SetLength(mulDimArr, 0);

  DynArrayLoad(mulDimArr, PAnsiChar(binary), TypeInfo(TIntegerDynArrayDynArray));
  ShowMessage(Utf8ToString(IntegerDynArrayToCsv(mulDimArr[0])) + ' | ' + Utf8ToString(IntegerDynArrayToCsv(mulDimArr[1])));
Und mit FileFromString(binary, 'FileName.data') ist es auf der Festplatte.

Bis bald...
Thomas
  Mit Zitat antworten Zitat