Цитата:
var
ar:array [word] of byte;
procedure check(const a:array of byte; len:word);
begin
end;
begin
check(ar,1000);
end.
|
мне когдато дестр надавал по шапке за то что в стек хлама кучу ложу.. теперь пытаюсь везде где это критично передавать "4 байта"
если ты не хочешь каждый раз при изменении длинны массива передергивать память то сделай хотябы воттак
delphi Код:
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)