Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=414605&view=findpost&p=3795590 Sun, 14 Apr 2019 15:35:37 +0000 range check error при заполнении буфера https://forum.sources.ru/index.php?showtopic=414605&view=findpost&p=3795590
       TComplexArray  = array[0..0] of TComplex;

поэтому RangeCheck справедливо возмущается

Но ничего не мешает объявить его как

       TComplexArray  = array[word] of TComplex;

или

       TComplexArray  = array[0.. MaxInt div SizeOf(TComplex)] of TComplex;


Или использовать динамические массивы с SetLength (но тут нужно следить, не используется ли где-то указатель на массив)

       TComplexArray  = array of TComplex;
]]> MBo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=414605&view=findpost&p=3795586 Sun, 14 Apr 2019 14:29:06 +0000 range check error при заполнении буфера https://forum.sources.ru/index.php?showtopic=414605&view=findpost&p=3795586 В процедуре для вычисления FFT

    procedure MakeFFT;  {Процедура самого преобразования}
     var
      fftb:          TFFTBase; //класс, который реализует БПФ
      fFFTComplBuf:  ^TComplexArray;  //Буфер для хранения комплексных величин
      i: integer;
     begin
      GetMem(fFFTComplBuf, BufSize*SizeOf(TComplex)); //Выделение памяти под массив
     
    for i:=0 to BufSize-1 do //Заполняем данными массив
       begin
        fFFTComplBuf[i].Re := fDataBuf[i];
        fFFTComplBuf[i].Im := 0;
         end;
     
      fftb:=TFFTBase.Create(nil);

В цикле заполнения массива выскакивает ошибка range check error при i>0
Если в свойствах компилятора (D7) снять галку "Range checking", то никаких ошибок не возникает.
Это глюк компилятора?]]> diakin Delphi: Общие вопросы