procedure TForm1.Button3Click(Sender: TObject);
begin
Filter(3,1);
DrawFromArray(1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Filter(0,16);
DrawFromArray(1);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Filter(2,9);
DrawFromArray(1);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Filter(1,10);
DrawFromArray(1);
end;
end.
3. Ekrānšāviņi
…