11 2015 档案

delphi 读写文本
摘要：将字符串写入txt文档，读取txt文档中的内容。//一次写字符串到文本文件，每次都会将原来的内容替换掉。procedure FilePutContents(f,s:String); // f为文件名，s为存的内容var ss:TStrings;begin ss:=TStringList.Creat... 阅读全文
posted @ 2015-11-30 15:45 王云盼 阅读(967) 评论(0) 推荐(0)
delphi 获取两个颜色差值
摘要：前面说了已经获取到颜色值了，现在需要比较两个颜色的差值。两个颜色的根据RGB的差来取，有两种情况：1.(R的平方+G的平方+B的平方)开根号，再两个颜色值相减获取差值。2.(((R1-R2)的平方) + ((R1-R2)的平方) + ((R1-R2)的平方))开根号，即为差值第一种情况差值比第二种情... 阅读全文
posted @ 2015-11-28 18:11 王云盼 阅读(670) 评论(0) 推荐(0)
delphi 获取颜色值的RGB
摘要：前言：http://www.cnblogs.com/studypanp/p/5002953.html 获取的颜色值前面获取到一个像素点的颜色值后(十六进制)，比如说(黄色)：FFD1C04C(共八位)，我自认为前面两位代表透明度，其它顺序为R-G-B, 没想到顺序是G-B-R下面为从十六进制解析RG... 阅读全文
posted @ 2015-11-28 17:34 王云盼 阅读(4701) 评论(0) 推荐(0)
delphi 获取图片某一像素的颜色值
摘要：前言：在VCL里有GetPixel函数，可直接用，在FMX里直接用这个函数没有定义，在FMX的library中找这个函数在FMX.Graphics.TBitmapData.GetPixel中 结果我引用FMX.Graphics不行，引用FMX.Graphics.TBitmapData也不行，然后我... 阅读全文
posted @ 2015-11-28 16:51 王云盼 阅读(3503) 评论(0) 推荐(0)
delphi常用快捷键（我自己经常使用的）
摘要：代码编辑器：Home 回到当前行的头部End 回到当前行的尾部Insert 插入代码，覆盖后面的代码，(按回车无效)， 再按撤回效果Delete 删除F1 双击一个单词后，按F1调用自带的Library 参考函数引用单元及用法F2 在Project上可... 阅读全文
posted @ 2015-11-28 14:38 王云盼 阅读(2099) 评论(0) 推荐(0)
delphi平方开方
摘要：用delphi自带的sqr和sqrt函数procedure TForm2.SpeedButton3Click(Sender: TObject);begin ShowMessage(Sqr(6).ToString); //36end;procedure TForm2.SpeedButton4C... 阅读全文
posted @ 2015-11-28 11:46 王云盼 阅读(925) 评论(0) 推荐(0)
delphi 生成网卡MAC地址
摘要：生成MAC地址的小工具：{*------------------------------------------------ 生成mac地址 @author @version 2015.7.2 2015.10.22修改 步长最大长度为256，必须为2的n次方 长度不超过5位数-----... 阅读全文
posted @ 2015-11-28 11:19 王云盼 阅读(463) 评论(0) 推荐(0)
delphi 十进制十六进制转换
摘要：delphi有提供十进制转换成十六进制的函数： IntToStr(); 返回值为String// 十进制转十六进制var i: integer; str: string;begin i := 255; ShowMessage(IntToHex(I, 2)); //FF ... 阅读全文
posted @ 2015-11-28 10:40 王云盼 阅读(348) 评论(0) 推荐(0)
冒泡排序算法
摘要：var num: array of Integer; // 打比方 array里记录的是[5, 3, 2, 4, 1] =>要的到的结果为[1, 2, 3, 4, 5] i: Integer = 1; // i记录要比较数的位置 {首先明白字符串，比如'12345' ... 阅读全文
posted @ 2015-11-19 20:19 王云盼 阅读(215) 评论(0) 推荐(0)
泛型，存放N张图片
摘要：(* ************************************************* 1、里面放多张图片，用文件名作为索引 2、线程在背后从硬盘加载到内存 3、批量加载 4、加载完成后执行回调，回调是线程安全的 5、回调中的参数是新加载了多少张图片****************... 阅读全文
posted @ 2015-11-19 09:50 王云盼 阅读(368) 评论(0) 推荐(0)
delphi 处理图片(剪切，压缩)
摘要：剪切bmp：效果为指定的rect大小，若图片比rect小，则会放大。都要uses Vcl.Imaging.jpeg;需要注意的是FMX里也需要jpeg的支持，虽然没引用编译器不会报错，但用到jpg时会报内存错误。procedure TForm1.Button1Click(Sender: TObjec... 阅读全文
posted @ 2015-11-17 20:34 王云盼 阅读(6196) 评论(0) 推荐(0)
delphi 创建DLL文件 及其调用和注意事项
摘要：首先创建一个DLL文件，项目自带的代码为：library ProjectPnr;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause A... 阅读全文
posted @ 2015-11-17 10:50 王云盼 阅读(3392) 评论(0) 推荐(0)
对属性的认识
摘要：书写格式： property Name： 类型 read (方法) write (方法) ； //default 可省略property Name： string read FName write SetName; // 读可以是函数也可以是变量property Name： string rea... 阅读全文
posted @ 2015-11-07 11:09 王云盼 阅读(282) 评论(0) 推荐(0)
timer实现Grid自动换行(连续相同的id跳到下一行)
摘要：private { Private declarations } FRow: Integer; procedure SetRow(const Value: Integer); public { Public declarations } property Row :... 阅读全文
posted @ 2015-11-06 15:23 王云盼 阅读(228) 评论(0) 推荐(0)
Form1调用Unit2类中函数
摘要：Form1有一个button，当Form1.Create时触发Button的OnClick事件，OnClick事件调用Unit2单元中的函数；unit Unit2; interface uses FMX.Dialogs, FMX.StdCtrls;type TBClick = class p... 阅读全文
posted @ 2015-11-06 14:48 王云盼 阅读(233) 评论(0) 推荐(0)
XE下创建及调用Frame
摘要：1.创建Form1；2.创建FMXFrame(New -> Other->Delphi Files -> FMXFrame); // 单元名为UnitFrame，窗体名为frm 在窗体里放一个button，一个memo，这里只是测试有木有引用到。3.调用。uses UnitFrame;var ... 阅读全文
posted @ 2015-11-05 09:49 王云盼 阅读(733) 评论(0) 推荐(0)
XE ListBox实现伸缩效果
摘要：功能：实现年月日压缩，初始化时item是所有年，点击年展开月，点击月展开天，再点击则收缩。思路：实际上一开始是将所有item显示，只是将月日的item.height赋值为0， 记录每一行的item的index，包括年，月，日， 找到年的item，点击时，显示月的item，赋month.hei... 阅读全文
posted @ 2015-11-02 19:21 王云盼 阅读(750) 评论(0) 推荐(0)
获取指定的数
摘要：获取0至100中的0至29,42至100， 刚开始我想的太多,要小于29，大于42，这么多条件什么的。。。。 不多说了，我自己脑子没转过来var i,j: integer;begin j := 0; for i := 0 to 99 - 13 do begin memo1.Lines.a... 阅读全文
posted @ 2015-11-02 18:14 王云盼 阅读(180) 评论(0) 推荐(0)
XE下显示托盘图标（TrayIcon）
摘要：1.拖一个TrayIcon控件2.拖一个ApplicationEvents控件3.拖一个PopupMenu控件将TrayIcon的PopupMenu属性与PopupMenu控件关联unit UnitMain;interfaceuses Winapi.Windows, Winapi.Messages... 阅读全文
posted @ 2015-11-02 16:44 王云盼 阅读(1328) 评论(0) 推荐(0)
XE 画矩形实现拖拉改变大小（属性）
摘要：实现原理：1.拖一个rectangle控件，Align属性为TOP2.拖一个Split控件，Align为Top3.拖Rectangle，Align为Bottom4.拖Split，Align为Bottom5.左边、右边依次类推，6.最后拖一个Rectangle，Align为Client，Stroke属... 阅读全文
posted @ 2015-11-02 16:15 王云盼 阅读(309) 评论(0) 推荐(0)
XE StringGrid应用（G1属性触发G2）
摘要：unit UnitMain;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.... 阅读全文
posted @ 2015-11-02 15:54 王云盼 阅读(517) 评论(0) 推荐(0)