1

Возникла очень странная ошибка invalid pointer operation , еще страннее периодичность ее появления. Есть код :

for i := 0 to (fpos div length(longke)) do
  longkey := longkey + longke;

for i:= 0 to fpos do
  AByte[i]:= AByte[i] xor ord(longkey[i+1]);

заметил, что, если убрать цикл

for i := 0 to (fpos div length(longke)) do
  longkey := longkey + longke; 

то ошибки нет, так же методом тыка понял, что если закоментить строку

AByte[i]:= AByte[i] xor ord(longkey[i+1]);

то ошибки тоже нет, значит дело явно с ней. Сама же ошибка возникает в конце программы и показывает

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.  // сюда

иногда ошибка сама уходит, я ничего не трогал, код не менял и вдруг ошибка перестала появляться, но потом опять начала, что за магия ?

дополнение#1 : понял, что если объявить массив статическим, то ошибки нет, вот код :

var
  f: file of byte;
  AByte: array of byte;
  bytee : byte;
  i,k,fpos,sc,vv,pol :integer;
  CodeText : longint;
  longke,longkey: AnsiString;
begin
  longke:='c28a50a73a5ccc2373c1015e41022df4';
  AssignFile(f, 'C:\45.docx');
  Filemode := 2;
  Reset(f);
  k := FileSize(f);
  fpos:=200;
  SetLength(AByte, fpos);
  for i := 0 to (fpos div length(longke)) do
    longkey := longkey + longke;

  seek(f,0);
  BlockRead(f, AByte[0], fpos);

  for i:= 0 to fpos do
    AByte[i]:= AByte[i] xor ord(longkey[i+1]);
  seek(f,0);
  BlockWrite(f, AByte[0], fpos);
end;
16
  • ну а если подумать - на последнем витке цикла куда будет указывать i+1? Да и не обязательно на последнем
    – kami
    Commented 11 нояб. 2016 в 11:36
  • не от этого ошибка, ибо я недавно эт добавил, было просто i , да и в longkey больше символов чем в fpos
    – Lolidze
    Commented 11 нояб. 2016 в 11:46
  • 1
    немного не так. Отредактируйте вопрос. И помимо объявления - покажите, где вы инициализируете переменные. В общем - нужен минимальный воспроизводимый пример.
    – kami
    Commented 11 нояб. 2016 в 11:54
  • 2
    @Lolidze Не "ошибки нет", а "Вы ее не видите". Ошибка из-за нарушения границ массива. Детальнее можно сказать только увидев весь код. Включите в настройках компилятора опцию Range Check и посмотрите, что получится. Ну и про FastMM Вам уже говорили Commented 11 нояб. 2016 в 12:00
  • 1
    Из того, что есть сейчас - ошибка в цикле по AByte. Цикл должен идти до fpos-1, иначе он пройдет 201 раз вместо 200. Ну и длина longkey явно недостаточна.
    – kami
    Commented 11 нояб. 2016 в 12:14

1 ответ 1

2

SetLength(AByte, fpos);

Устанавливает массив AByte размером fpos элементов. Индексация элементов от 0 до fpos - 1

for i:= 0 to fpos do AByte[i]:= AByte[i] xor ord(longkey[i+1]);

На последней итерации цикла идет обращение к элементу массива AByte с индексом fpos. Элемента с таким индексом не существует и мы затираем чужую память

0

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.