Speicherlayout von dynamischen Arrays

[Der schöne Günther]

Wie ist ein dynamisches Array im Speicher aufgebaut? Die einzige Info die ich fand war von Delphi 2007:

http://docs.embarcadero.com/products...rmats_xml.html unter "Dynamic Array Types"

s = sizeOf(T)

Offset	Content
-8	Reference count
-4	Length indicator
0..Length * s -1	Element [0]

Wenn ich es richtig sehe, gilt das nur für Win32, unter Win64 ist der Längenindikator 8 Byte lang während der Referenzzähler 4 Byte geblieben ist. Richtig?


Heißt: Wollte ich den Referenzzähler eines dynamischen Arrays bestimmen würde es lauten

Delphi-Quellcode:

{$POINTERMATH ON}
/// <param name="ptr">
///     Zeiger auf das erste Element des Arrays (also <c>@myArray[0]</c>)
/// </param>
function GetArrayRefCount(ptr: PNativeUInt): NativeUInt; //inline;
var
   refCount: PInteger; // Not native int
begin
   Dec(ptr, 1); // now pointing to length indicator
   refCount := PInteger(ptr); Dec(refCount);
   Result := refCount^;
end;

[Uwe Raabe]

Die aktuelle Doku ist doch ziemlich aussagekräftig: http://docwiki.embarcadero.com/RADSt...he_Array-Typen

[Der schöne Günther]

Ich war zu dumm genau das zu finden. Vielen Dank 👍

[himitsu]

Da LongStrings (AnsiString und UnicodeString) auch nur aufgemotzte dynamische Arrays sind,
könnte man bei diesen abgucken, bzw. über einen bösen Cast (Array>String) die öffentlichen Systemfunktionen verwenden.

Tipps für System.pas:
UniqueString
StringRefCount
_AddRefArray
StrRec
TDynArrayRec


Und bevor sich wer beschwert: Ja, für Arrays fehlt da bissl was Öffentliches, was nicht nur exklusiv in der System-Unit verwendet wird.


Bei dynamischen arrays gibt es leider keine Konstanten (k.A. warum),
also nur bei Strings muß man aufpassen, wenn man auf den geheimen RecCount -1 trifft, denn das ist eine Konstante.