vb句子: ReDim waver(-110600 To 110600) As Bytedelphi里面好像有个对应的setlength(),但不知功能语句进行套用。

解决方案 »

  1.   

    setlength(),只是设置数组大小,不能设置数组下标吧。var waver:array of byte;setlength(waver,1024);
      

  2.   

    那么delphi是否有其它办法来表述vb的ReDim waver(-110600 To 110600) As Byte?
      

  3.   

    var
        wavebuf: array of byte; //全局动态数组
    procedure TForm1.Scanp(const de: integer);
    begin
      // SetLength(wavebuf,110600);  //这样写后边会子界超出下标范围,此处能否套用VB的该语句?
    ...
    end;
      

  4.   

    vb 里定义的是 -110600 到 110600,所以实际上是110600*2大小的数组
    你写的SetLength(wavebuf,110600);当然不够长了
    应该这样
    var
    wavebuf: array of byte; //全局动态数组
    begin
    SetLength(wavebuf,110600*2);