Dimensionsbestimmung dynamische Arrays

[Muehle]

Ich habe folgendes Problem mit der Bestimmung
der Groesse eines dynamischen Arrays während der Laufzeit :

thearr ist ein dynamisches Array. Jedoch liefert
sizeof() immer den Anfangswert = 4. Dasselbe gilt
übrigens für length().

Auch High() und Low() verhalten sich da nicht besser.
Wer weiss die Lösung ???

var thearr : Array of Integer;
itest:Integer;

begin
itest := sizeof(thearr);
setlength(thearr,100000);
itest := sizeof(thearr);
setlength(thearr,1000);
itest := sizeof(thearr);
setlength(thearr,90000);
itest := sizeof(thearr);
end

[ste_ett]

Ein Dynamischer Array ist nur ein Pointer und somit immer 4 Byte groß, egal wie viele Elmente darin enthalten sind.

Um die Größe des belegten Speichers zu erhalten, musst du die Anzahl der Elemente ("Length(Array)") mit der Größe des Typs eines einzelnen Elements ("sizeof(Integer)") multiplzieren.