Aufbau Dynamisches Array?

[mleyen]

Delphi-Quellcode:

function GetArrayLen(var bytes: TBytes): Longint;
begin
  if Cardinal(bytes) = 0 then
    Result := 0
  else
    Result := PInteger(Cardinal(@bytes[0])-sizeof(Result))^;
end;

In der kommenden 64bit-Version wird da auch Int64 verwendet.