Delphi. Динамический массив при работе с нетипизированными файлами

[Arrow_S]

Здравствуйте, столкнулся с проблемой при работе с двоичным файлом. В файле блоки данных разного размера, поэтому приходится использовать динамический массив. У каждого блока есть заголовок 27 байт, в котором зашита длина всего блока. В зависимости от данных блоки записываются в разные файлы.
При использовании динамического массива "PDP: Array of Char", программа зависает на второй итерации. При копировании части строки PZPBIN в Lpak. Lpak - строка с длинной блока данных.

Туплю второй день, не могу догнать в чём проблема. Кто может подскажите, заранее спасибо.

procedure TForm2.BitBtn1Click(Sender: TObject);
var
TM, Vospr: file;
I, Lp, S: integer;
VosprF, VosprF1:String;
Zagolovok: Array [0..255] of Char;
PZP:Array [0..26] of Char;
N: Array [0..26] of Integer;
PDP: Array of Char;
PZPHEX, PZPBIN, IDpak, Npak, Lpak: String;

begin
  if OpenDialog1.Execute then
  Begin

// открытие ТМ файла и создание файла Vospr
 
   VosprF:= OpenDialog1.FileName;
   VosprF1:=VosprF;
   S:=Length(OpenDialog1.FileName)-11;
   Insert('VOSPR', VosprF1, S);

// Связь файлов с файловыми переменными

   AssignFile(TM, OpenDialog1.FileName);
   AssignFile(Vospr,VosprF1);

// Открытие файлов

   {$I-}
   Reset(TM,1);
   Rewrite(Vospr,1);
   {$I+}

// Проверка операции открытия файлов

   I:=IOResult; if I<>0  then Exit;

// Считывание и запись заголовка ТМ файла

   FileMode :=fmOpenReadWrite;
   BlockRead(TM, Zagolovok, 256);
   BlockWrite(Vospr, Zagolovok, 256);


// Основной блок

   while not Eof(TM) do
    begin

//Считывание заголовка блока

      blockread(TM,PZP,27);

// Расшифровка заголовка блока

      for I := 0 to 26 do
      Begin
      	n[i]:=Ord(PZP[i]);
   	PZPHEX:=PZPHEX+IntToHex(n[i],2);
      End;

      PZPBIN:= HexToBin(PZPHEX);

// Определение длинны блока

// Зависает в этом месте     
     Lpak:=Copy(PZPBIN,201,16);
     Lpak:=BinToHex(Lpak);
     Lpak:=IntToStr(HexToInt(Lpak)+1);
     Lp:= StrToInt(Lpak);

// Запись заголовка в файл Vospr

     blockwrite(Vospr, PZP, 27);

// Считывание и запись данных блока

    // Правильно ли здесь идет передача данных?
     
     SetLength(PDP, Lp);
     blockread(TM,PDP,Lp);
     blockwrite(Vospr, PDP, Lp);


   PZPHEX:='';
   PZPBIN:='';

  end;

   CloseFile(TM);
   CloseFile(Vospr);

   label1.Caption:='Файл ТМ: '+Copy(OpenDialog1.FileName, S, 12)+' - обработан!';
   label1.Visible:=True;
  End;

end;

[Rin]

Было бы неплохо поСЧупать ваш ЕНтот файл TM. Если он не велик, то залейте во вложения. Иначе трассируйте и просматривайте состояния переменных. Возможно вы пытаетесь считать огромный блок данных, возможен выход за пределы файла при считывании, или ещё что-нибудь.

[Arrow_S]

Файл великоват, а при трассировке переменная Lp =10, первые несколько блоков по 37 байт, 27 заголовок и 10 данные. Проблема в том, что я как то неправильно работаю с массивом(, или в передаче данных. Со статичным массивом на 10 элементов (например), из файла в файл перегоняется на раз, но данные не все по 10 байт, а с динамическим беда.

[BDA]

Есть ли гарантии, что длина PZPBIN всегда 216 символов?
Вставьте showmessage с длиной перед копированием.
И вообще, зачем его "вытаскивать" из строки?
Это значение хранится в n[26] (имхо).
Я вообще не понял, зачем создавать столько промежуточных строк, чьи значения больше никак не используются, но вам, конечно, виднее, какая информация должна быть обработана.

[Rin]

Сделайте проверку что ли

if length(PZPBIN)>=216 then Lpak:=Copy(PZPBIN,201,16);

[BDA]

Rin, длина PZPBIN меньше или равна 216
И вот если меньше, то лучше так не копировать)
Тогда уж Lpak:=Copy(PZPBIN,length(PZPBIN)-15,16);

[Rin]

BDA, условие я предлагаю, чтобы при трассировке можно было посмотреть, длина массива >= 216, или все таки нет.

[BDA]

Тогда исправьте в своем сообщении знак ">" на ">=", а то ввели меня в заблуждение

[Arrow_S]

Длина PZPBIN всегда равна 216, последние 2 байта = длина инф. части. Да и с пеобразованиями проблем при трассировке нет. Проблема, на мой взгляд, с дин. массивом и передачей значений в связке этих операторов.

 Lpak:=Copy(PZPBIN,201,16);
     Lpak:=BinToHex(Lpak);
     Lpak:=IntToStr(HexToInt(Lpak)+1);
     Lp:= StrToInt(Lpak);


     SetLength(PDP, Lp);
     blockread(TM,PDP,Lp);
     blockwrite(Vospr, PDP, Lp);

Такое ощущение, что что то "держит" данные Lpak и не даёт их изменить.
Команды, типа:
SetLength(PDP, 0);
Finalize(PDP);
PDP:=nil;
Lpak:='';
в концовке цикла сразу приводят к зависанию и выдают ошибку доступа к каким-то адресам памяти.

[evg_m]

   // Правильно ли здесь идет передача данных?
     
     SetLength(PDP, Lp);
     blockread(TM,PDP[0]@,Lp);
     blockwrite(Vospr, PDP[0]@, Lp);

для динамических массивов надо указывать алрес первого (нулевого) элемента.
но модет быть надо так @PDP[0]