摘要：
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
阅读(4169)
推荐(0)
posted @ 2014-07-21 16:41
del88
阅读(450)
推荐(0)
摘要：
经过测试发现：Requery 相当于 Adq.Close,Open；并且比Close,Open方法有个优点就是不丢失排序，SortAdq.Close,Open 后，原来的 Adq.Sort 会丢失，而Requery 不会丢失很好。官方的解释说，是取代，Close,Open的好方法》RefreSh:-...
阅读全文
posted @ 2014-07-15 10:58
del88
阅读(1380)
推荐(0)
摘要：
GotoBookmark 是必须存在的记录，再次返回原来那个记录的位置，但是原来的那个记录必须存在，所以不适合【删除订单后回到原来的位置】，因为原来的订单已经不存在了，删除了，moveby(),从当前光标的位置移动多少个记录，注意是以当前光标的位置为起点，来移动RecNo： 当前光标的从第一条记录算...
阅读全文
posted @ 2014-07-15 09:38
del88
阅读(748)
推荐(0)
posted @ 2014-06-30 18:53
del88
阅读(28)
推荐(0)
摘要：
今天才发现 delphi IDE 有设置 TabOrder 的 更加 快捷的方法,以前 总觉的 设计 起来 好麻烦。现在 终于 解放了。。。。 可以拖拽，设置好后，直接点击一下，就可以了。。。太棒了，默认是从 0开始。
阅读全文
posted @ 2014-06-28 18:10
del88
阅读(31)
推荐(0)
摘要：
在 Delphi 编程语言中，有多种取整函数，可以根据不同的需求选择使用。以下是一些常见的取整函数及其用法和示例： Round 函数 用途：四舍五入取整。TODO 有空时 要写篇博客，研究下这个函数，这个函数不同语言的 实现方式不同，有的是标准的四舍五入，有的则是“银行家”法，为了避免各个语言出错，
阅读全文
posted @ 2014-06-14 17:41
del88
阅读(32925)
推荐(0)
摘要：
在最近版本的Delphi Pascal 编译器中，Round 函数是以 CPU 的 FPU (浮点部件) 处理器为基础的。这种处理器采用了所谓的 "银行家舍入法"，即对中间值 (如 5.5、6.5) 实施Round函数时，处理器根据小数点前数字的奇、偶性来确定舍入与否，如 5.5 Round 结果为
阅读全文
posted @ 2014-06-14 17:40
del88
阅读(10546)
推荐(0)
摘要：
注意阿里巴巴的账号 和 淘宝的账号是有区别的，阿里巴巴有旺遍天下，淘宝也有旺遍天下，所以要注意下： 阿里巴巴账号的旺遍天下：http://page.1688.com/html/wangwang/download/windows/wbtx.html 淘宝卖家平台的旺遍天下：http://www.tao
阅读全文
posted @ 2014-06-13 17:07
del88
阅读(1403)
推荐(0)
摘要：
Cnpack ctrl+alt+v 来回切换 变量声明区，和代码写区，非常方便 非常方便
阅读全文
posted @ 2014-05-29 12:12
del88
阅读(38)
推荐(0)
posted @ 2014-05-28 13:32
del88
阅读(30)
推荐(0)
posted @ 2014-05-15 20:39
del88
阅读(26)
推荐(0)
摘要：
结果： value里面带=号是没有问题的,如果key里面第一个字符是等号,则认为key 是空, 看来delphi 做的还是 很好的 足够用了。
阅读全文
posted @ 2014-05-06 17:16
del88
阅读(209)
推荐(0)
摘要：
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
阅读(35)
推荐(0)
摘要：
注意：如果top_seller_nick有重复的值的时候,keyfield 也为top_seller_nick的话,就会造成，选中最下面的那个阿里巴巴的，默认也是第一个天猫的各项值。 因为选后是根据keyfield来锁定查询的。你虽然选择了最后一个，但是 程序 根据keyfiled的值锁定匹配到第一
阅读全文
posted @ 2014-05-05 14:14
del88
阅读(102)
推荐(0)
摘要：
原来的很多写法这次，可以修改了。 原写法： 修改后： 简洁 高效 明了 只适应根据键名 找 键值的情况
阅读全文
posted @ 2014-05-03 19:37
del88
阅读(404)
推荐(0)
摘要：
今天研究阿里巴巴的对接，发现IDHTTP 的post 如果是 https 的连接就会报：“IOHandler value is not valid.”错误 加载https的站点页面内容的时候记得在窗体上加上“IdSSLIOHandlerSocketOpenSSL1” 以及idhttp里面IOHand
阅读全文
posted @ 2014-05-03 10:38
del88
阅读(743)
推荐(0)
摘要：
TDBLookupComboboxEh和TDBGridEh一样强大无比，可以做出Combobox下拉出Grid的效果。下面是一些重要属性的小结（可怜费了我半天功夫，文档太少了.......）（1）ListSource 和DataSource属性，这个比较好理解，DataSource就是这个Combo
阅读全文
posted @ 2014-05-02 15:33
del88
阅读(45)
推荐(0)
摘要：
（1）控制一个单元格是否允许编辑（或者说文字选中），可以设置Grid的Options的dgEditing属性；如果该属性为False，那么用户只能选中该单元格而无法选中里面的内容，也无法进行编辑。（2）Grid有个EditorMode属性很好用，当用户单击单元格的时候设置该属性为True，可以自动进
阅读全文
posted @ 2014-05-02 15:32
del88
阅读(152)
推荐(0)
posted @ 2014-05-02 14:47
del88
阅读(38)
推荐(0)
摘要：
如果要使用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
阅读(216)
推荐(0)
摘要：
即使加上： MyList.StrictDelimiter := True; 也自动合并相邻的重复的。这点有好处也有坏处，坏处 暂时 还没有想到。 浙江省 绍兴市 越城区 延安路661号2幢203室 浙江省 绍兴市 越城区 延安路661号2幢203室 这两个的运行结果是一样的。
阅读全文
posted @ 2014-04-28 16:41
del88
阅读(17)
推荐(0)
摘要：
procedure TfrmMain.Button1Click(Sender: TObject); var MyLogisticsCompanyApi: TLogisticsCompanyApi; begin MyLogisticsCompanyApi := TLogisticsCompanyApi
阅读全文
posted @ 2014-04-23 12:06
del88
阅读(16)
推荐(0)
摘要：
在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
阅读(68)
推荐(0)
摘要：
操，delphi官方 没有 批量替换工具，需要用到cnpack才可以，
阅读全文
posted @ 2014-04-06 13:49
del88
阅读(67)
推荐(0)
摘要：
总之用事务的宗旨是： 1.不用嵌套事务EnableNested设置为False 2.事务一定要回滚，避免发生异常的情况下，没有回滚 造成，不可估量的错误。 try frmClientDm.MyMainCon.StartTransaction; try //注意，这里不能有Exit;退出函数,因为退出
阅读全文
posted @ 2014-04-03 20:13
del88
阅读(85)
推荐(0)
posted @ 2014-04-03 17:51
del88
阅读(28)
推荐(0)
posted @ 2014-04-03 11:36
del88
阅读(46)
推荐(0)
posted @ 2014-03-22 19:57
del88
阅读(53)
推荐(0)
摘要：
1.三个属性让DBGridEH可以点击表头自动排序 只要设置下面三个属性： ColumDefValues->Title->TitleButton设为TRUE sortlocal 设为TRUEOptionsEH->dghautosortmarking设为TRUE 最后，一定要记得在pas文件的uses
阅读全文
posted @ 2014-03-14 11:14
del88
阅读(485)
推荐(0)
摘要：
Resource可以是任意文件（图像、声音、office都可以），直接打包到编译的exe文件中，调用也非常方便 打开一个新的或已有的delphi工程 1.先在 Project->resources..添加一个图片，并更改名字为myfirst，类型为RT_RCDATA 2.在窗体上方一个image和b
阅读全文
posted @ 2014-03-08 18:09
del88
阅读(17)
推荐(0)
摘要：
frmClientDm.TopItemSkuShow_adoq.Locate('top_outer_iid;top_outer_sid', VarArrayOf([top_outer_iid,top_outer_sid]),[loCaseInsensitive]);
阅读全文
posted @ 2014-03-04 15:08
del88
阅读(61)
推荐(0)
摘要：
// //测试连接 try MyAdoCon.LoginPrompt := False; MyAdoCon.ConnectionString := MySqlApi.GetConnectionString(top_server_type,top_server_name,WindowsLogin,''
阅读全文
posted @ 2014-02-27 12:11
del88
阅读(25)
推荐(0)
摘要：
1.选中控件，右键 postion-- 最下面两个 x y 坐标，center in window
阅读全文
posted @ 2014-02-18 16:03
del88
阅读(63)
推荐(0)
摘要：
1.由于单独列 并没有 对应的双击事件 后来也想了想 确实 不应该 有，因为双击单元格就是双击 表格，如果双击单元格 也有 事件的话 那岂不是 和 双击 表格的双击事件重复了吗 2.解决方案，就是下图 在双击表格的事件中写代码，然后做些判断： 、 3.代码如下： procedure TfrmCust
阅读全文
posted @ 2014-02-18 13:30
del88
阅读(44)
推荐(0)
摘要：
DBGRIDEH 鼠标滚动 和 点击单元格因为我是用2个DBgridEH，主表数据变化（用的是OnCellClick），明细表也变化。现在的情况时，鼠标滚动时，明细表数据不变化好像也没看到相关的事件请指教 方案 OnCellClick?你的意思是滚动鼠标中间的滚轮?这个功能是不用写代码的。设置数据集
阅读全文
posted @ 2014-02-18 12:14
del88
阅读(105)
推荐(0)
摘要：
http://www.doc88.com/p-771829547690.html
阅读全文
posted @ 2014-02-18 12:08
del88
阅读(58)
推荐(0)
posted @ 2014-02-18 12:06
del88
阅读(47)
推荐(0)
摘要：
procedure TDateTimeApi.AutoEditUserComputerDateFormat; var p: DWORD; MyWinDate,MyWinTime: string; MyDateTimeChange: Boolean; begin // { 2014.02.18增加判断
阅读全文
posted @ 2014-02-18 09:58
del88
阅读(10)
推荐(0)
posted @ 2014-02-17 23:05
del88
阅读(22)
推荐(0)
浙公网安备 33010602011771号