Merkwürdiges Problem mit einem dynamischen Array

[himitsu]

ReallocMem, oder Realloc, oder wie dat heißt ... siehe OH?

Delphi-Quellcode:

Arr := ReallocMem(Arr, xNew * SizeOf(Double));
// oder so ... jenachdem, ob man da Arr als Var-Parameter übergeben kann
ReallocMem(Arr, xNew * SizeOf(Double))

na ja, oder

Delphi-Quellcode:

var Arr, Temp: TMyArray;

Temp := GetMem(xNew * SizeOf(Double));
Move(Arr, Temp, Min(x, xNew) * SizeOf(Double));
FreeMem(Arr);
Arr := Temp;

Aber es empfiehlt sich natürlich, wenn du irgendwo die Größe speicherst ... weil sowas wie Length(MyDoubleArray) geht natürlich och nicht

Delphi-Quellcode:

Type TMyDoubleArray = Array[0..0] of Double;
  PMyDoubleArray = ^MyDoubleArray;

Var MyDoubleArraySize: Integer;
  MyDoubleArray: PMyDoubleArray;

oder im Typen

Delphi-Quellcode:

Type TMyDoubleArray = Record
    Size: Integer
    Data: Array[0..0] of Double;
  End;
  PMyDoubleArray = ^MyDoubleArray;

Var MyDoubleArray: PMyDoubleArray;

[add]
zu langsam -.-''