Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Wie kann man Informationen eines Arrays ermitteln? (https://www.delphipraxis.net/211396-wie-kann-man-informationen-eines-arrays-ermitteln.html)

mytbo 10. Sep 2022 20:27

AW: Wie kann man Informationen eines Arrays ermitteln?
 
Zitat:

Zitat von KodeZwerg (Beitrag 1511541)
..., 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

KodeZwerg 10. Sep 2022 22:44

AW: Wie kann man Informationen eines Arrays ermitteln?
 
Zitat:

Zitat von mytbo (Beitrag 1511588)
Du verwendest doch mORMot. Warum dann nicht hier?
Bis bald...
Thomas

Danke Thomas!! Zwei Fliegen mit einer Klappe geklatscht :-D
Oder mehr, wegen Delphi plus FPC :)

Und meine Antwort zu Deiner Frage, weil ich es nicht wusste :oops:s

Das rockt!


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:12 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz