有一个过程如下所示:
procedure blabla;
var buffer: array of byte;
begin
Setlength(buffer, 10);
Setlength(buffer, someinteger);
end
两次通话后缓冲区仍然为零<-这是我的问题
我通常认为自己是一位经验丰富的程序员,我在其他各种场合都使用这种基本方法。这让我发疯了。
你们中有人过去有过类似的问题吗?如果是这样,问题是什么?
我的代码有点意大利面,因为我更改了任何看起来可疑的行,但这里是完整的代码:
@编辑:
我在同一个项目的另一部分有这个代码:
procedure interleaveVertexes;
var
interleavedArray: array of TVec3Coord2;
begin
SetLength(interleavedArray, vertexcount);
end;
它有效..就像它应该的那样