globales dyn. Array - länge in Procedure anpassen

[turboPASCAL]

Hi,

ich möchte in einer Procedure die länge eines dynamischen Arrays ändern.
Nach folgendem Code funktioniert das nicht. Was für ein Fehler mach ich denn nur ?

Delphi-Quellcode:

var
  MyArray: Array of Bytes;

procedure Dings(var AnyByteArray: Array of Byte);
begin
  // Calc xyz ...
  if xyz > High(AnyByteArray) then SetLength(MyArray, xyz);
end;

BEGIN
  SetLength(MyArray, 256);
  Dings(MyArray);
END.

[marabu]

Moin Matti,

wenn du keinen "echten" Typ definierst, kann der Compiler den passenden Code nicht generieren:

Delphi-Quellcode:

type
  TByteArray = array of Byte;
var
  MyArray: TByteArray;

procedure Dings(var a: TByteArray);
begin
  SetLength(a, ... );
end;

Freundliche Grüße

[turboPASCAL]

Achso ja.

Danke.