>还有一个疑问,我后来把缓冲区 LZWBUFFER(编码处理缓存)、LZWSTACKBUFFERSIZE(栈缓存容量)和LZWEXPORTBLOCKSIZE(输出缓存容量)的值都改为$FFFFFF了,已经远大于我要处理的文件了,怎么还是溢出?//测试如下代码就明白了~~ function f(a: array of Byte): Integer; begin Result := SizeOf(a); end;procedure TForm1.Button1Click(Sender: TObject); var a: array[0..$FFFFF] of Byte; begin f(a); end; //是Delphi编译器动态数组参数限制了~~
function f(a: array of Byte): Integer;
begin
Result := SizeOf(a);
end;procedure TForm1.Button1Click(Sender: TObject);
var
a: array[0..$FFFFF] of Byte;
begin
f(a);
end;
//是Delphi编译器动态数组参数限制了~~