相关疑难解决方法(0)

在某些情况下,我需要设置动态数组的大小,然后用零填充它.

就像是:

procedure SetLengthAndZero(VAR X; NewSize: Integer);
begin
   SetLength(x, newsize);
   if newsize > 0
   then FillChar(x[0], length(x)* SizeOf(x[0]), 0);
end;

但上面的代码(显然)不会编译.