Проблемы с процедурой

[Sibedir]

Ну и еще вот это

type
  TArr = array of LongRec;
  TArrI = array of Smallint;
var
  S_File: file;
  S_Size, i: Integer;
  S_Path: String;
  S_Arr: TArr;
  S_Arr_EKG, S_Arr_EMG: TArrI;

...

    AssignFile (S_File, S_Path);
    Reset (S_File, 1);
    S_Size := (FileSize (S_File) - 1) div 4;
    Seek (S_File, 1);

    SetLength (S_Arr, S_Size);
    BlockRead (S_File, S_Arr[0], S_Size);
    CloseFile (S_File);

    SetLength (S_Arr_EKG, S_Size);
    SetLength (S_Arr_EMG, S_Size);
    for i := 0 to S_Size-1 do begin
      S_Arr_EKG[i] := S_Arr[i].Lo;
      S_Arr_EMG[i] := S_Arr[i].Hi;
    end;

[Nigadyai]

Сообщение от Sibedir

Странно. Мне кажется, что у вас сбивка произошла на этапе записи в файл, а не чтения.

Ну я занимаюсь верхним уровнем системы, прибор для съема сигналов уже давно был разработан (не мною).

И, честно говоря, мудрить что-то новое с чтением файла ой как не хочется (это нужно всего лишь для кнопки "дебаг"). В противном случае, при каждой компиляции проекта мне бы приходилось ждать по 1.5 минуты, принимая данные с ком-порта))

Но всё равно спасибо еще раз за помощь