При отладке, странным образом сбрасываются значения.

[Человек_Борща]

Доброго времени суток!

Немогу понять, в чем проблема:

     //Размер записи
      sRecSize := StrToIntDef(sOffsetRec,0);
      //Попытка переместить значение в другую ячейку памяти а не поставить указатель на неё
      MoveMemory(@sRecSize2,@sRecSize,SizeOf(sRecSize));

      { Теперь надо почистить файл от примисей }


      tms.Size := tms.Size - SizeOf(Integer);


      SetLength(tbuff, tms.Size - iOffsetRecLen);

      bStart := tms.Seek(iOffsetRecLen, soFromBeginning);
      bEnd := tms.Seek(sRecPos, soFromCurrent);

      tms.Seek(iOffsetRecLen, soFromBeginning);
      tms.Read(tbuff, bEnd - bStart);

      //Вот тут sRecSize2 и SRecSize просто сбрасываются на макс. значение Integer
      bEnd:=bEnd+sRecSize2; //<< = выполнение дальнейшего кода НЕВОЗМОЖНО!
      bStart:=tms.Seek(bEnd,soFromBeginning);

Я не меняю значения переменных, они исп. при вычислении.
Самое странное, что sRecSize2 спец. заведена, чтобы держать там значение из sRecSize, на случай если sRecSize обнулится непостижимым образом, более SRecSize2 более нигде не упоминается, кроме как в строке перемещения данных(MoveMemory) sRecSize => sRecSize2.
Могу видео записать... позже прикреплю.

В чем трабл - не понятно.

[Аватар]

А точно (bEnd - bStart) не больше (tms.Size - iOffsetRecLen)? В отладке посмотрите

[Человек_Борща]

Не больше.
Прикрепил видео....

[Пепел Феникса]

так, пошагово идите и смотрите после какой строки падает.
используйте инспектор значений.

[Человек_Борща]

Пепел Феникса, А до этого я телепатически значения из памяти ОЗУ вытаскивал? //не смешно.

Строку после которой падает, выделил:

      tms.Seek(iOffsetRecLen, soFromBeginning);
      tms.Read(tbuff, bEnd - bStart);

      //Вот тут sRecSize2 и SRecSize просто сбрасываются на макс. значение Integer

Понятнее не стало...

tBuff в 5 раз больше считываемого обьема..

[Пепел Феникса]

так, tBuff это кто?

[Человек_Борща]

массив array of byte

Факт в том, что обнуляются левые переменные...

[Пепел Феникса]

а теперь меняем на tbuff[0] меняется ли чтото?
я боюсь просто в стек читали...
то есть

tms.Read(tbuff[0], bEnd - bStart);

[astecenko]

А ежели MoveMemory заменить на Move?
http://www.delphimaster.net/view/2-1167297116

Сорри, это одно и тоже

[Человек_Борща]

Пепел Феникса Хм, теперь проблем нету. Примного благодарен, уже весь мозг вынес себе.