del88 - 博客园

2014年10月9日

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

posted @ 2014-10-09 15:57 del88 阅读(11) 评论(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 阅读(27) 评论(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 阅读(92) 评论(0) 推荐(0) 编辑

2014年8月7日

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

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

posted @ 2014-08-07 18:46 del88 阅读(38) 评论(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 阅读(265) 评论(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 阅读(4079) 评论(0) 推荐(0) 编辑

2014年7月21日

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

摘要：阅读全文

posted @ 2014-07-21 16:41 del88 阅读(430) 评论(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 阅读(1330) 评论(0) 推荐(0) 编辑

Adoquery的 moveby和GotoBookmark，RecNo

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

posted @ 2014-07-15 09:38 del88 阅读(715) 评论(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 阅读(14) 评论(0) 推荐(0) 编辑

2014年6月28日

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

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

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

2014年6月14日

delphi 常用函数(数学函数）round、trunc、ceil和floor

摘要： delphi 常用函数(数学) Delphi中怎么将实数取整？ floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=- 阅读全文

posted @ 2014-06-14 17:41 del88 阅读(32468) 评论(0) 推荐(0) 编辑

delphi 四舍五入Round函数

摘要：在最近版本的Delphi Pascal 编译器中，Round 函数是以 CPU 的 FPU (浮点部件) 处理器为基础的。这种处理器采用了所谓的 "银行家舍入法"，即对中间值 (如 5.5、6.5) 实施Round函数时，处理器根据小数点前数字的奇、偶性来确定舍入与否，如 5.5 Round 结果为阅读全文

posted @ 2014-06-14 17:40 del88 阅读(10269) 评论(0) 推荐(0) 编辑

2014年6月13日

旺遍天下的官方网址

摘要：注意阿里巴巴的账号和淘宝的账号是有区别的，阿里巴巴有旺遍天下，淘宝也有旺遍天下，所以要注意下：阿里巴巴账号的旺遍天下：http://page.1688.com/html/wangwang/download/windows/wbtx.html 淘宝卖家平台的旺遍天下：http://www.tao 阅读全文

posted @ 2014-06-13 17:07 del88 阅读(1198) 评论(0) 推荐(0) 编辑

2014年5月29日

Cnpack ctrl+alt+v 来回切换变量声明区，和代码写区，非常方便

摘要： Cnpack ctrl+alt+v 来回切换变量声明区，和代码写区，非常方便非常方便阅读全文

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

2014年5月28日

delphi IDE 控件居中的方法

摘要：阅读全文

posted @ 2014-05-28 13:32 del88 阅读(14) 评论(0) 推荐(0) 编辑

2014年5月15日

delphi IDE 代码恢复

摘要：阅读全文

posted @ 2014-05-15 20:39 del88 阅读(7) 评论(0) 推荐(0) 编辑

2014年5月6日

TStringList 善用 value['names'] 即使value 是带=号的值都没有关系呵呵，我靠强，以后就用这个了，key=value首选

摘要：结果： value里面带=号是没有问题的,如果key里面第一个字符是等号,则认为key 是空, 看来delphi 做的还是很好的足够用了。阅读全文

posted @ 2014-05-06 17:16 del88 阅读(186) 评论(0) 推荐(0) 编辑

TStringList，的IndexOf,find,IndexOfName 例子

摘要： a=wokao b=in c=wori d=ri e=我靠 f=我插 procedure TForm1.Button1Click(Sender: TObject); var MyList: TStringList; begin MyList := TStringList.Create; try My 阅读全文

posted @ 2014-05-06 09:53 del88 阅读(14) 评论(0) 推荐(0) 编辑

2014年5月5日

TDBLookupComboboxEh 一些设置项，自己总结

摘要：注意：如果top_seller_nick有重复的值的时候,keyfield 也为top_seller_nick的话,就会造成，选中最下面的那个阿里巴巴的，默认也是第一个天猫的各项值。因为选后是根据keyfield来锁定查询的。你虽然选择了最后一个，但是程序根据keyfiled的值锁定匹配到第一阅读全文

posted @ 2014-05-05 14:14 del88 阅读(49) 评论(0) 推荐(0) 编辑

2014年5月3日

TStringList,快速解析查找测试。。。很有用，再也不用 FOR 循环了

摘要：原来的很多写法这次，可以修改了。原写法：修改后：简洁高效明了只适应根据键名找键值的情况阅读全文

posted @ 2014-05-03 19:37 del88 阅读(388) 评论(0) 推荐(0) 编辑

Idhttp Post https 连接报“IOHandler value is not valid.”错误

摘要：今天研究阿里巴巴的对接，发现IDHTTP 的post 如果是 https 的连接就会报：“IOHandler value is not valid.”错误加载https的站点页面内容的时候记得在窗体上加上“IdSSLIOHandlerSocketOpenSSL1” 以及idhttp里面IOHand 阅读全文

posted @ 2014-05-03 10:38 del88 阅读(359) 评论(0) 推荐(0) 编辑

2014年5月2日

ehlib组件包当中TDBLookupComboboxEh的小结

摘要： TDBLookupComboboxEh和TDBGridEh一样强大无比，可以做出Combobox下拉出Grid的效果。下面是一些重要属性的小结（可怜费了我半天功夫，文档太少了.......）（1）ListSource 和DataSource属性，这个比较好理解，DataSource就是这个Combo 阅读全文

posted @ 2014-05-02 15:33 del88 阅读(21) 评论(0) 推荐(0) 编辑

DBGrideh使用小结【EditorMode】当用户点击单元格的时候，自动进入编辑状态

摘要：（1）控制一个单元格是否允许编辑（或者说文字选中），可以设置Grid的Options的dgEditing属性；如果该属性为False，那么用户只能选中该单元格而无法选中里面的内容，也无法进行编辑。（2）Grid有个EditorMode属性很好用，当用户单击单元格的时候设置该属性为True，可以自动进阅读全文

posted @ 2014-05-02 15:32 del88 阅读(79) 评论(0) 推荐(0) 编辑

delphi TDBLookupComboboxEh 的项目设置

摘要：阅读全文

posted @ 2014-05-02 14:47 del88 阅读(25) 评论(0) 推荐(0) 编辑

2014年4月28日

Delphi 字符串截取函数【LeftStr,RightStr,MidStr】

摘要：如果要使用LeftStr,RightStr,MidStr必需引用系统单元StrUtils; 声明变量Str:string; Str:=HelloWorld; 1,LeftStr(Str,2)=He;//从Str字符串变量的最左边（第一个字符包括第一个字符）开始截取2个字符； 2,RightStr(S 阅读全文

posted @ 2014-04-28 20:27 del88 阅读(75) 评论(0) 推荐(0) 编辑

深入研究Delimiter，发现Delimiter 是自动合并重复的。

摘要：即使加上： MyList.StrictDelimiter := True; 也自动合并相邻的重复的。这点有好处也有坏处，坏处暂时还没有想到。浙江省绍兴市越城区延安路661号2幢203室浙江省绍兴市越城区延安路661号2幢203室这两个的运行结果是一样的。阅读全文

posted @ 2014-04-28 16:41 del88 阅读(4) 评论(0) 推荐(0) 编辑

2014年4月23日

List大陷阱，这个问题，造成我的很多问题，我靠，今天才发现MyList.Duplicates := dupIgnore;不sort就无效。

摘要： procedure TfrmMain.Button1Click(Sender: TObject); var MyLogisticsCompanyApi: TLogisticsCompanyApi; begin MyLogisticsCompanyApi := TLogisticsCompanyApi 阅读全文

posted @ 2014-04-23 12:06 del88 阅读(5) 评论(0) 推荐(0) 编辑

2014年4月18日

Delphi中的注释，仅此一篇

摘要：在Pascal中，注释括在大括号中或带星号的圆括号中。Delphi 也认可C++ 风格的注释，即把注释放在双斜线后。例如: {this is a comment} (* this is another comment *) // this is a comment up to the end of 阅读全文

posted @ 2014-04-18 18:57 del88 阅读(18) 评论(0) 推荐(0) 编辑

2014年4月6日

Delphi批量替换工具Cnpack

摘要：操，delphi官方没有批量替换工具，需要用到cnpack才可以，阅读全文

posted @ 2014-04-06 13:49 del88 阅读(35) 评论(0) 推荐(0) 编辑

2014年4月3日

FDConnection的事务测试讲解。。

摘要：总之用事务的宗旨是： 1.不用嵌套事务EnableNested设置为False 2.事务一定要回滚，避免发生异常的情况下，没有回滚造成，不可估量的错误。 try frmClientDm.MyMainCon.StartTransaction; try //注意，这里不能有Exit;退出函数,因为退出阅读全文

posted @ 2014-04-03 20:13 del88 阅读(53) 评论(0) 推荐(0) 编辑

DbgridEh 1900-01-01 00:00:00 问题解决

摘要：阅读全文

posted @ 2014-04-03 17:51 del88 阅读(6) 评论(0) 推荐(0) 编辑

关于DbgridEh滚动从表一起跟着滚动的分析

摘要：我的实现：阅读全文

posted @ 2014-04-03 11:36 del88 阅读(15) 评论(0) 推荐(0) 编辑

2014年3月22日

Delphi - Case 可以多条件指定在一起，今天才知道；逗号分隔

摘要：阅读全文

posted @ 2014-03-22 19:57 del88 阅读(19) 评论(0) 推荐(0) 编辑

2014年3月14日

DBGRIDEH 排序我自己大总结【含DBX,Dac控件】

摘要： 1.三个属性让DBGridEH可以点击表头自动排序只要设置下面三个属性： ColumDefValues->Title->TitleButton设为TRUE sortlocal 设为TRUEOptionsEH->dghautosortmarking设为TRUE 最后，一定要记得在pas文件的uses 阅读全文

posted @ 2014-03-14 11:14 del88 阅读(206) 评论(0) 推荐(0) 编辑

2014年3月13日

Delphi库单元结构

摘要：单元(unit)是组成Pascal 程序的单独的源代码模块，单元由函数和过程组成，这些函数和过程能被主程序调用。一个标准的单元文件格式如下： unit Unit1； //单元头 interface uses { 单元列表 } //公有 {接口部分} //公有 implementation uses 阅读全文

posted @ 2014-03-13 16:14 del88 阅读(24) 评论(0) 推荐(0) 编辑