【图像处理高级编程】-中值滤波

中值滤波

提示：这里可以添加技术概要

核心源码

var
Form1: TForm1;
RvalueArray, GvalueArray, BvalueArray: array[0…8] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
bmp1, bmp2: Tbitmap;
p1, p2, p3, p4: pbytearray;
i, j: integer;
begin
//设置双缓冲
self.DoubleBuffered := true;
//创建两个位图实例
bmp1 := Tbitmap.Create;
bmp2 := Tbitmap.Create;
//加在位图
bmp1.Assign(image1.Picture.Bitmap);
//设置位图的象素格式
bmp1.PixelFormat := pf24bit;
//位图的大小
bmp1.Width := image1.Picture.Graphic.Width;
bmp1.Height := image1.Picture.Graphic.Height;
//加载备份的位图
bmp2.Assign(image1.Picture.Bitmap);
bmp2.PixelFormat := pf24bit;<