del88 - 博客园

2015年11月5日

bring to front 必须在右边的form上才生效。

摘要：右边form上一次后，左边的就可以了。。。。阅读全文

posted @ 2015-11-05 20:06 del88 阅读(616) 评论(0) 推荐(0) 编辑

2015年8月29日

Build 和 Compile 区别

摘要：阅读全文

posted @ 2015-08-29 17:50 del88 阅读(19) 评论(0) 推荐(0) 编辑

2015年8月17日

Adoquery.Refresh 慎用。。。。非常严重，会带来各种问题。

摘要： adoquery.refresh 各种问题，根本启不到刷新的作用。完全不刷新的节奏。修改成已经打印后，如果用adoquery.refresh的话，这两个订单并不会被刷新掉，惨吧。。。。。。阅读全文

posted @ 2015-08-17 17:16 del88 阅读(21) 评论(0) 推荐(0) 编辑

ADO 右键问题，当dbgrideh非只读的时候，会遇到这个问题

摘要：用法：阅读全文

posted @ 2015-08-17 16:51 del88 阅读(193) 评论(0) 推荐(0) 编辑

2015年8月8日

图像列表组件（TImageList）

摘要： TImageList 组件是一组同样尺寸的图像列表，每一个图像由它的Index值查询。 1.TImageList组件的典型用法图形列表用于建立和管理大量的图像，主要是配合菜单或者工具栏按钮的使用。图像列表中的所有图像的出场必须想通，每一个图像都有一个相异的序号。为什么要使用图像列表呢？以树状视图为阅读全文

posted @ 2015-08-08 18:13 del88 阅读(133) 评论(0) 推荐(0) 编辑

如何在Delphi TImageList 中使用透明 png 图标

摘要： Query: "Embarcadero Delphi ImageList does not show transparent PNG icons correctly. How to fix it?". Solution: If you want to use 32-bit (24-bit + alp 阅读全文

posted @ 2015-08-08 17:59 del88 阅读(12) 评论(0) 推荐(0) 编辑

2015年7月26日

记录元素初始化、类属性初始化、记录属性初始化区别【严重注意，使用记录类型的时候要严重注意】

摘要：严重注意：使用记录类型的时候要严重注意，记录类型的元素初始化并非我们想要的结果，如果是integer,currey当不赋值的时候，初始化并不为0,而是随机数， boolean 类型默认为true，所以当记录类型的元素用不到的时候，一定要注释掉，而不是放再那里不赋值，如果你不赋值，系统也会自动给你阅读全文

posted @ 2015-07-26 10:29 del88 阅读(11) 评论(0) 推荐(0) 编辑

2015年7月7日

ehlib 排序后滚动条不对问题

摘要：针对CDS的情况，作者的代码里好像也不知道什么原因必须写Cds.First但是，不写的话，就是不行，去掉作者的注释就可以了。阅读全文

posted @ 2015-07-07 10:23 del88 阅读(10) 评论(0) 推荐(0) 编辑

2015年7月6日

Delphi dbgrideh颜色设置

摘要： DBGridEh中分行分列、单元格的颜色设置（1）分行不同颜色设置；在DBGridEh1DrawColumnCell中写； if ADOQuery1.RecNo mod 2=0 then begin DBGridEh1.Canvas.Font.Color := clRed; DBGridEh1.De 阅读全文

posted @ 2015-07-06 11:57 del88 阅读(199) 评论(0) 推荐(0) 编辑

2015年4月10日

TfrxReport.Clear。尽量慎用。

摘要： for MyXuHaoKey in MyXuHaoJianRongSanJieKouDataDicApi.KeySortList do begin //标记下打印编号,吸入淘打的客户 MyTradeApi.MarkDayNoByXuhao(MyXuHaoKey); with MyShopAdq do 阅读全文

posted @ 2015-04-10 17:02 del88 阅读(9) 评论(0) 推荐(0) 编辑

2015年4月2日

TDictionary字典记录的赋值。

摘要：不解。。。。delphi就是这么设计的,先这么搞吧阅读全文

posted @ 2015-04-02 12:38 del88 阅读(230) 评论(0) 推荐(0) 编辑

TDictionary字典对象的释放。。。

摘要： type TRen = record name: string; age: Integer; end; type TPeople = class private Fname: string; Fage: Integer; procedure Setname(const Value: string); procedure Setage(const Va... 阅读全文

posted @ 2015-04-02 11:53 del88 阅读(462) 评论(0) 推荐(0) 编辑

2015年3月27日

今天才知道 Ping 命令的意义

摘要：当ping一个域名的时候可以知道这个域名的解析情况，也可以知道当前电脑是否联通了域名。可以看到 diandaxia.com 的域名解析是 112.124.182.113 ，而www.diandaxia.com 就不是了，由于用了阿里云的ace 所以是一个阿里云的负载均衡的IP 阅读全文

posted @ 2015-03-27 21:41 del88 阅读(11) 评论(0) 推荐(0) 编辑

2015年3月23日

Delphi判断一个字符串在另一个字符串中出现的次数 7个方法的效率对比。

摘要： unit Unit14; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, 阅读全文

posted @ 2015-03-23 16:57 del88 阅读(135) 评论(0) 推荐(0) 编辑

2015年3月22日

Delphi TStringList 有趣的CommaText和DelimitedText

摘要： CommaText 在没有指定StrictDelimiter=true的情况下,当列表中项中包含空格和逗号的时候就默认的在这个字符串上面增加双引号很智能吧例子1： var MyList: TStringList; begin MyList := TStringList.Create; 阅读全文

posted @ 2015-03-22 09:42 del88 阅读(177) 评论(0) 推荐(0) 编辑

2015年3月10日

使用Redis作为消息队列服务场景应用案例

摘要：一、消息队列场景简介 “消息”是在两台计算机间传送的数据单位。消息可以非常简单，例如只包含文本字符串；也可以更复杂，可能包含嵌入对象。消息被发送到队列中，“消息队列”是在消息的传输过程中保存消息的容器。在目前广泛的Web应用中，都会出现一种场景：在某一个时刻，网站会迎来一个用户请求的高峰期（比如：阅读全文

posted @ 2015-03-10 09:42 del88 阅读(13) 评论(0) 推荐(0) 编辑

2015年3月4日

delphi 下获取一个字符的 Unicode 编码

摘要：用 Ord('万') 可以得到 "万" 字的 UniCode 的编码. 阅读全文

posted @ 2015-03-04 19:33 del88 阅读(3) 评论(0) 推荐(0) 编辑

2015年3月3日

Delphi 安装ICS

摘要：下载完成后解压到你的指写目录！ 1、在library里加入ICS->Delphi->Vc32目录。 2、从File->Open中打开ICS->Delphi->Vc32->IcsDel110.dproj文件。(文件名在其它Delphi版本略有不同) 3、在项目管理器中，右键IcsDel110.bpl选阅读全文

posted @ 2015-03-03 16:09 del88 阅读(14) 评论(0) 推荐(0) 编辑

2015年2月23日

delphi 窗体透明详解TransparentColorValue，窗体透明控件不透明

摘要：关于窗体透明的做法 1.在Delphi中，设置窗体的AlphaBlend := true;AlphaBlendValue := 0-255; AlphaBlendValue越小窗体的透明度就越高。这种方法将会使窗体和窗体中控件都变成透明。 2.在Delphi中，设置TransparentColor 阅读全文

posted @ 2015-02-23 13:55 del88 阅读(1313) 评论(0) 推荐(0) 编辑

2015年2月5日

Label的背景色

摘要： Label的背景色是 color属性，但是这个属性是必须 Transparent 为 false的时候才生效，否则不生效阅读全文

posted @ 2015-02-05 15:06 del88 阅读(7) 评论(0) 推荐(0) 编辑

2015年1月12日

FDMemTable用法

摘要： procedure TForm1.FormCreate(Sender: TObject); Var i:integer; begin // i:=15; self.FDMemTable1.FieldDefs.Add('ID',ftstring,10); self.FDMemTable1.FieldD 阅读全文

posted @ 2015-01-12 11:27 del88 阅读(64) 评论(0) 推荐(0) 编辑

2014年12月29日

delphi中的退出程序的确认问题

摘要：在formclose中用if Application.MessageBox('你确认要退出吗？','请确认',MB_YesNo+MB_IconQuestion)=IDno then begin ........//这里写什么,程序才不会退出 end 纠正下不是在 Form 的 Close 事件里,因阅读全文

posted @ 2014-12-29 15:11 del88 阅读(23) 评论(0) 推荐(0) 编辑

2014年12月14日

京东服务市场电话

该文被密码保护。阅读全文

posted @ 2014-12-14 12:59 del88 阅读(7) 评论(0) 推荐(0) 编辑

2014年11月24日

淘宝菜鸟测试

该文被密码保护。阅读全文

posted @ 2014-11-24 18:03 del88 阅读(1) 评论(0) 推荐(0) 编辑

2014年10月16日

FormatDateTime 当前时间减去几小时的做法

摘要： top_start_modified := FormatDateTime('yyyy-mm-dd hh:mm:ss',(Now - ((1/24)*3))); top_end_modified := FormatDateTime('yyyy-mm-dd hh:mm:ss',Now); 阅读全文

posted @ 2014-10-16 15:54 del88 阅读(548) 评论(0) 推荐(0) 编辑

2014年10月9日

Delphi Vista,Win7,Win8 的 Uac,管理员身份运行

摘要：要用就用下面我自己总结的官方的做法： 1.首先搜到delphi 自带的manifest,然后在其基础上改一个单词 2.将里面的asInvoker改为requireAdministrator 3.修改为保存为uac.manifest 4.在project->options->application-> 阅读全文

posted @ 2014-10-09 15:57 del88 阅读(10) 评论(0) 推荐(0) 编辑

2014年8月28日

阻止关闭窗口，FormCloseQuery

摘要： procedure TfrmTopJdsMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if MessageDlg('您好,关闭此插件,将导致【订单全链路】不能正常使用！请确认是否关闭？',mtConfirmati... 阅读全文

posted @ 2014-08-28 19:52 del88 阅读(893) 评论(0) 推荐(0) 编辑

2014年8月25日

frmClientDm.ItemInLogShowAdq.Delete 报【BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。】

摘要：当Adoquery 中只有一条数据库的时候，这个时候删除就会报：BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。这个错误导致这个错误的原因是ado的一个bug，这个问题遇到了很多次了，浪费了大量的时间也没有一个结果，今日终于测试出这个问题的原因了，如阅读全文

posted @ 2014-08-25 16:04 del88 阅读(24) 评论(0) 推荐(0) 编辑

2014年8月22日

delphi 自己用的加密解密算法

摘要： // 加密方法一(通过密钥加密解密)function EncryptString(Source, Key: string): string;function UnEncryptString(Source, Key: string): string;//加密方法二(通过移位加密解密)function 阅读全文

posted @ 2014-08-22 13:27 del88 阅读(74) 评论(0) 推荐(0) 编辑

2014年8月7日

DbgridEh 导出 Excel 如果字段长度超过255会截断，那如何导出，另一种神奇的方法

摘要：由于DbgridEh 导出 Excel 如果字段长度超过255会截断，所以必须换一种方法来导出，百度谷歌看了上百帖，都是有这句： xlApp := CreateOleObject('Excel.Application'); 由于这句代码是要求客户的电脑上必须有 Office 才行，利用的是OL 阅读全文

posted @ 2014-08-07 18:46 del88 阅读(34) 评论(0) 推荐(0) 编辑

切断数据感知控件，大大提升软件运行速度

摘要： ADOQuery1.DisableControls;ADOQuery1.EnableControls; 阅读全文

posted @ 2014-08-07 14:01 del88 阅读(167) 评论(0) 推荐(0) 编辑

2014年8月3日

当一个窗体上有PageControl 控件时，是先执行 FormShow呢，还是先执行PageControl 的 TabSheet2Show呢

摘要：答案是先执行TabSheet2Show ,总算知道了，顺便推理Onshow事件的执行顺序是从内到外，先执行容器内的控件的事件，再执行窗体的事件阅读全文

posted @ 2014-08-03 17:45 del88 阅读(155) 评论(0) 推荐(0) 编辑

2014年7月31日

公司路由器带宽控制

摘要：注意上面只是将了流程，但是上面的很多设置都是错的，经过试验发现，如果针对IP段进行设置，无论如何也设置不好，因为如果针对IP段进行设置的话，上下行带宽的设置很麻烦，需要判断上下行带宽的数量来填上下行带宽，算了不写了一头乱麻由于设置的各种麻烦性，终于想通了一个设置的方法，就是不设置限速规则，阅读全文

posted @ 2014-07-31 14:47 del88 阅读(264) 评论(0) 推荐(0) 编辑

2014年7月24日

TStringList的Find，IndexOf和Sort

摘要： procedure TForm1.Button1Click(Sender: TObject); var MyList: TStringList; begin MyList := TStringList.Create; try MyList.Add('11'); MyList.Add('1'); // 阅读全文

posted @ 2014-07-24 20:28 del88 阅读(4057) 评论(0) 推荐(0) 编辑

2014年7月21日

DBGridEH如何去表头？设置哪个属性

摘要：阅读全文

posted @ 2014-07-21 16:41 del88 阅读(428) 评论(2) 推荐(0) 编辑

2014年7月15日

Requery,Refresh，Adoquery.Close,Open 区别

摘要：经过测试发现：Requery 相当于 Adq.Close,Open；并且比Close,Open方法有个优点就是不丢失排序，SortAdq.Close,Open 后，原来的 Adq.Sort 会丢失，而Requery 不会丢失很好。官方的解释说，是取代，Close,Open的好方法》RefreSh:-... 阅读全文

posted @ 2014-07-15 10:58 del88 阅读(1327) 评论(0) 推荐(0) 编辑

Adoquery的 moveby和GotoBookmark，RecNo

摘要： GotoBookmark 是必须存在的记录，再次返回原来那个记录的位置，但是原来的那个记录必须存在，所以不适合【删除订单后回到原来的位置】，因为原来的订单已经不存在了，删除了，moveby(),从当前光标的位置移动多少个记录，注意是以当前光标的位置为起点，来移动RecNo：当前光标的从第一条记录算... 阅读全文

posted @ 2014-07-15 09:38 del88 阅读(713) 评论(0) 推荐(0) 编辑

2014年7月9日

SuperObject 的创建类型重大发现

摘要：原来每当到自己创建数组加对象的时候就很头疼，原来是这样搞的，这次是清晰了向数组里增加对象就用这个了： MySo.AsArray.Add(SO('{"爱好":["编程","打球"]}')); 阅读全文

posted @ 2014-07-09 17:09 del88 阅读(12) 评论(0) 推荐(0) 编辑

2014年6月30日

delphi 调试原来可以这样复制，不用点开才能复制对象的值

摘要：阅读全文

posted @ 2014-06-30 18:53 del88 阅读(13) 评论(0) 推荐(0) 编辑

2014年6月28日

关于Delphi TabOrder 更快捷的设置方法

摘要：今天才发现 delphi IDE 有设置 TabOrder 的更加快捷的方法,以前总觉的设计起来好麻烦。现在终于解放了。。。。可以拖拽，设置好后，直接点击一下，就可以了。。。太棒了，默认是从 0开始。阅读全文

posted @ 2014-06-28 18:10 del88 阅读(11) 评论(0) 推荐(0) 编辑