关闭

delphi 删除文件

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

delphi FMX gridlayout与gridpannellayout

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

delphi FMX控件的常见属性

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

delphi FMX图像简单的腐蚀和膨胀

//排序 paixu procedure 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 ...
阅读(245) 评论(0)

delphi FMX图像简单的边缘检测(sobel、prewitt、robert)

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

delphi FMX图像简单滤波(中值、均值、高斯)

//排序 paixu procedure 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...
阅读(324) 评论(0)

delphi FMX图像的灰度化和反色

//灰度化 h procedure 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....
阅读(254) 评论(0)

学习delphi FMX 的一些资料

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

delphi FMX图像的二值化

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

protel 99se 简单的手动画pcb

(只适合做超级简单的板子) 脑子里有原理图即可 直接打开protel 99se 新建一个pcb (PCB document) 1.      在左侧 browse pcb 下的 browse 的下拉框中选择 libraries 2.      可以看到compoents 中有许多元器件 选择自己需要的 比如单片机就用DIP40就可以了 3.      sip 单列直插 dip 双列直插 一...
阅读(38) 评论(0)

protel 99se 负片打印

protel 99se 负片打印 首先得有一个做好的pcb做好的pcb做好的pcb    打开做好的PCB 1.      点击下面的 mechanical1 层 再点击place ->fill 将板子都盖住 2.      点击file -> new  选择 PCB Printer 3.      选中左边的 multilayer composite print  点击edit -...
阅读(45) 评论(0)

delphi vcl图像的二值化

unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl....
阅读(144) 评论(0)

delphi固定窗口大小

delphi 10.2 固定窗口大小 设置以下属性    BorderIIcons 只选择 biSystemMenu    BorderStyle 选择 Single  属性: BorderIIcons:  //-------------------- BorderStyle :边框样式     优先级比上面的高 None               无边框 S...
阅读(180) 评论(0)

delphi简单的聊天室(UDP广播)

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

delphi简单的聊天室(两个人)

点对点的TCP通信 只能俩个人 unit kehu; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdBase...
阅读(205) 评论(0)
39条 共3页1 2 3 下一页 尾页
    个人资料
    • 访问:4061次
    • 积分:422
    • 等级:
    • 排名:千里之外
    • 原创:39篇
    • 转载:0篇
    • 译文:0篇
    • 评论:1条
    文章分类
    最新评论