做减求空

delphi 10.2 固定窗口大小 设置以下属性   BorderIIcons 只选择 biSystemMenu   BorderStyle 选择 Single 属性：BorderIIcons： //--------------------BorderStyle ：边框样式     优先级比上面的高None               无边框S

1. C:\Users\Public\Documents\Embarcadero\Studio\19.0\Samples自带的例子2. http://docwiki.embarcadero.com/                官方的在线帮助文档3. 软件上方的help                            官方的离线帮助文档4. 一些博客 http://www.cn

//模糊灰度变换procedure mohuhuidu(b : TBitmap);var x, y , I : Integer; //黑 灰 亮 三个输入隶属度函数 dark , gray, bright : array [0..255] of single; rwdata : TBitmapData ; p: PByteArray;begin //初始

//局部直方图均衡 jubu 3x3procedure jubu(b : TBitmap);var b_read : TBitmap; x, y , I: Integer; wdata , rdata : TBitmapData ; p0,p,p1,pw: PByteArray; n : array [0..255] of Integer;begin b_

//直方图统计增强 3x3procedure tongji(b : TBitmap);var b_read : TBitmap; //增强的参数 c k0,k1,k2,e : single ; //均值 和 方差 c mg,ug,m3,u3 : single ; x, y , I: Integer; wdata , rdata : TBitm

//直方图匹配 pipeiprocedure pipei(b : TBitmap; var g : array of Integer);var x, y , I ,J: Integer; A_BMPData : TBitmapData ; p: PByteArray; n : array [0..255] of Integer;begin //初始化数组 c

//直方图均衡 junhengprocedure junheng(b : TBitmap);var x, y , I: Integer; A_BMPData : TBitmapData ; p: PByteArray; n : array [0..255] of Integer;begin //初始化数组 c for I := 0 to 255 do

//模糊集合的边缘提取procedure mohulvbo(b : TBitmap);var b_read : TBitmap; x, y , I : Integer; //0 黑 白 三个输入隶属度函数 ze , bl, wh : array [0..255] of single; wdata , rdata: TBitmapData ; p0,p,p1

del('C:\Users\Administrator\Desktop\delphi\wenjian\Win32\Debug\','*.txt');//删除文件 目录 //文件名 可以有通配符 procedure del(mulu : string ; f : string);var SearchRec : TSearchRec;begin

procedure TForm2.TrackBar1Change(Sender: TObject);var Gray, x, y : Integer; A_BMPData : TBitmapData ; p: PByteArray; b : TBitmap;begin //创建一个临时变量存储二值化后的图像 b := TBitmap.Create; b

Gridlayout:      如果将ItemWidth设置为-1，则单元格的宽度自动按TGridLayout的宽度进行等分计算.      使用TGridLayout布局控件，其子控件的Position,Align,Anchors属性都自动设置，忽略你对这些属性值的修改。 //---------------------------------------------------

//灰度化 hprocedure Thuidu(b : TBitmap);var Gray, x, y : Integer; data : TBitmapData ; p: PByteArray;begin if b.Map( TMapAccess.ReadWrite, data) then begin for y := 0 to data.

//sobel 算子 3x3// -1 0 1 1 2 1// -2 0 2 0 0 0// -1 0 1 -1 -2 -1procedure sobel(b : TBitmap);var b_read : TBitmap; x, y : Integer; wdata , rdata

//排序 paixuprocedure paixu(var temp : array of Byte);var i,j : Integer; t : Byte;begin for i := low(temp) to high(temp)-1 do for j := i to high(temp)-1 do if temp[i]<temp[j] then

//排序 paixuprocedure paixu(var temp : array of Byte);var i,j : Integer; t : Byte;begin for i := low(temp) to high(temp) do for j := i to high(temp) do if temp[i]<temp[j] then

unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.

点对点的TCP通信 只能俩个人unit kehu;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdBase

点对点的TCP通信 只能俩个人 用了UDP广播发送服务器的IP和端口号 然后客户端获取其IP和端口unit kehu;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, F

None        无       尺寸位置可调，但不随着窗体尺寸变化。组件被保持在它的父类放置的位置，即窗体或面板，它是属性的缺省值。  Top         顶       组件被移动到窗体的顶端，并且被重新决定大小以充满窗体的宽，组件的高度不会受到影响。  Left        左       剩余空间的左部分填满，强调剩余部分。组件被移动到窗体的左边，并且被重新设定大小以充

//一个按钮的点击函数procedure TForm3.Button1Click(Sender: TObject);var s , ss: string;begin //选择一个图片 open: TOpenDialog; if open.Execute then begin //获取完整路径 s := open.FileName;