在这个例子中
procedure foobar; var tab:array of integer; begin setlength(tab,10); end;
数组被破坏还是内存泄漏?
内存被释放。 (也就是说,没有内存泄漏!)