[pazitiff]

Сообщение о ошибке с текстом Invalid pointer operation выскакивает после выполнения программы. Программа делает медианную фильтрацию- устраняет шум изображений, размер каретки устанавливаю я (нюанс метода фильтрации), при этом использую динамические массивы, до этого каретка в фильтрации была 3х3 и массивы были статические ошибки не было. Прошу подсказать почему выскакивает ошибка.
Вот полностью главный юнит
http://depositfiles.com/files/ivq005c7g
http://4ppl.ru/162538

Вот сама программа
http://4ppl.ru/162539

Ниже код процедуры самой фильтрации

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

procedure TMainForm.Filter1Click(Sender: TObject); var  i,j,k,l,r,q,g,b,w,ser:integer;  t:boolean;  vecr:array  of integer;  br:array of array of integer;  can:byte; begin setlength (vecr,si*si); setlength (br,si,si); if fl1 then pb.Min:=0;       pb.Max:=bmp.Width-1;       pb.Position:=0; begin   for i:=0 to paintbox.Width-2 do   begin     for j:=0 to paintbox.Width-2 do     begin       for k:=0 to si-1 do        // обнуление массиовов       begin         for l:=0 to si-1 do         begin           br[k,l]:=0;         end;       end;       for k:=0 to si-1 do           // Расчёт значения каждого канала в маске       begin         for l:=0 to si-1 do           begin             can:=paintbox.Canvas.Pixels[i+k,j+l];             r:=getrvalue(can);             g:=getgvalue(can);             b:=getbvalue(can);             br[k,l]:=trunc(sqrt(r*r+g*g+b*b));           end;         end;       q:=0;       for k:=0 to si-1 do         // переписываем полученные значения каналов       begin                    // в маске, в вектор для последующей их сортировки         for l:=0 to si-1 do         begin           q:=q+1;           vecr[q]:=br[k,l];         end;       end;       t :=true;       while t do       begin         t:=false;         for k:=1 to si*si-1 do            //метод пузырька         begin           if vecr[k]>vecr[k+1] then             begin               w:=vecr[k];               vecr[k]:=vecr[k+1];               vecr[k+1]:=w;               t:=true;             end;         end;       end;       ser:=(trunc((si*si)/2))+1;       paintbox1.Canvas.Pixels[i+1,j+1]:=rgb(vecr[ser],vecr[ser],vecr[ser]);       pb.Position:=pb.Position+1;   end; end; end;

lmikle: пользуем правильные теги!!!

Понимаю что чужой код смотреть ни кому не горит желанием. Но буду рад любой помощи или совету. Заранее спасибо

Спасибо Imikle за правку и совет.

[lmikle]

Ну, в этом коде я криминала не вижу.
Попробуй для чистоты эксперимента в конце процедуры обнулить массивы через SteLength(array,0,0).

Вообще, такая ошибка характерна для ситуации, когда компонент пытается удалить уже удаленный объект. Посмотри, может ты где-то удаляешь какой-либо объект, созданный "руками" и с присвоенными Parent и/или Owner.

[NIch]

Я бы на твоем месте поставил бряк (break) для начала на любую строчку в процедуре, если ошибка есть и бряк не сработал, то передвитуть выше, если сработал, то трассировать его клавишей F7 пока не увидишь ошибку...Посмотри в какой строчке ошибка, это наведет на мысли...
PS это может быть долго если используется долгий цикл типа for i := 0 to 1000...но его же можно обойти...

[pazitiff]

Обнуление массивов не помогло, а вот break точнее я пользовался goto мне подсказал что ошибка возникает после выполнения вот этих двух циклов:

Здесь ошибки не будет

Код:

1 2 3 4 5 6 7 8

for k:=0 to si-1 do             begin                          for l:=0 to si-1 do         begin           q:=q+1;           vecr[q]:=br[k,l];         end;               goto label1;       end;

В этом случае ошибка появляется

Код:

1 2 3 4 5 6 7 8

for k:=0 to si-1 do               begin                           for l:=0 to si-1 do         begin           q:=q+1;           vecr[q]:=br[k,l];         end;       end;            goto label1;

но почему я понять не могу В двух словах о коде в массив 3х3 ранее записывается яркость каждого пикселя, в этих циклах представленных выше, я переписываю в вектор для упорядочивания по возрастанию методом пузырька. Закоментировал эти циклы, все без ошибки но свою функцию программа понятное дело не выполняет

[s0Creator]

помняй

Код:

1 2	vecr[q]:=br[k,l];          q:=q+1;

у тебя vecr[q] записывается с 1

[NIch]

использование goto в делфи считается нехорошим тоном (пережитки паскаля), и практикуется лишь в крайних случаях...
видимо у тебя что то в размерности массивов

Код:

1	vecr[q]:=br[k,l];

[pazitiff]

Спасибо. всем проблема решена. Она была и вправду в размерности массивов. Еще дальше такая же проблема была в сортировке пузырьком. P.S. насчет goto знаю но мне удобно было