Реферат: Программа фильтрации шумов

var

PixelArray:array of Byte;

Value:Byte;

CurrentLine:pByteArray;

BoxCurrentLine:pByteArray;

Vert,Hor:Integer;

VertB,HorB:Integer;

Counter:Integer;

Temp:Byte;

begin

ValueForm.Caption := 'Размер окна фильтра n X n';

ValueForm.TrackBar1.Min := 3;

ValueForm.TrackBar1.Max := 9;

ValueForm.TrackBar1.Frequency := 2;

ValueForm.Edit1.ReadOnly := True;

if ValueForm.Execute(Value) then

begin

SetLength(PixelArray,Value*Value);

if Image1.Picture.Bitmap.PixelFormat = pf8bit then

begin

for Vert := 0 to Image1.Picture.Bitmap.Height - 1 do

begin

CurrentLine := Image1.Picture.Bitmap.ScanLine[Vert];

for Hor := 0 to Image1.Picture.Bitmap.Width - 1 do

begin

// Заносим все пиксели окошка в массив

Counter := 0;

for VertB := (Vert - (Value div 2)) to (Vert + (Value div 2)) do

begin