> 2 GB

[alexteam]

var
ar:array [word] of byte;

procedure check(const a:array of byte; len:word);
begin

end;

begin
check(ar,1000);
end.

мне когдато дестр надавал по шапке за то что в стек хлама кучу ложу.. теперь пытаюсь везде где это критично передавать "4 байта"
если ты не хочешь каждый раз при изменении длинны массива передергивать память то сделай хотябы воттак

type
  PData = ^TData;
  TData = packed record len:word; data: array[word] of byte; end;




procedure check(p:pdata);
begin
  while someshitcounter < p^.len do
    dosomeshit(p^.data[someshitcounter]);
end;

var
ar : tdata;
begin
check(ar, 100)