Возникла очень странная ошибка 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;