[supernewbie]

ваще че это за C0000005 она часто че-то вылетает в местах где раньше все работало

Добавлено через 3 минуты

Сообщение от alexteam

мне когдато дестр надавал по шапке за то что в стек хлама кучу ложу.. теперь пытаюсь везде где это критично передавать "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)

но ведь если передавать через const\var то идёт тоже самое, ну т.е. передается только поинтер или нет?