学习 TTreeView [16] - 给 TTreeView 添加复选框 (回复 "丁永其" 的问题)
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/05/15/1114450.html#1199402 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, C...
阅读全文
posted @
2008-05-15 17:12
万一
阅读(8105)
推荐(0) 编辑
回复 "刘那" 的问题: 你的例子挺好玩的, 我模拟做了一下
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/05/14/1089344.html#1196271 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia...
阅读全文
posted @
2008-05-14 15:00
万一
阅读(2628)
推荐(0) 编辑
获取集合元素个数 - 回复"鹰@长空"
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/05/11/978683.html#1191835 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TF...
阅读全文
posted @
2008-05-11 13:09
万一
阅读(5071)
推荐(0) 编辑
如何把字符串覆给数组 - 回复"刘那"
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/05/11/1089344.html#1191871 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;...
阅读全文
posted @
2008-05-11 12:31
万一
阅读(6184)
推荐(0) 编辑
关于 GetMem 和 GetMemory 的区别 - 回复"下雨天2"
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/05/02/1179416.html#1179645 我觉得 GetMem 和 GetMemory 的功能是一样的, 有点类似与 Format 和 FmtStr 的关系; 它们的区别只在于参数位置和返回值的区别, 看看 GetMemory 函数的源码就知道, 它其实就是调用的 GetMem. unit U...
阅读全文
posted @
2008-05-02 19:57
万一
阅读(3742)
推荐(0) 编辑
关于指针初始化的问题 - 回复"下雨天2"
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/05/02/1179416.html#1179645 一个全局变量可以初始化, 如果你不主动初始化, 也会被自动初始化; 一个局部变量不能被初始化, 虽然你不能主动初始化, 但它会被赋予一个随机值. unit Unit1; interface uses Windows, Messages, Sys...
阅读全文
posted @
2008-05-02 19:44
万一
阅读(2121)
推荐(0) 编辑
分析 TStringList 存取对象的特点 - 还是回复 Test1234 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/04/26/973346.html#1171927 在 Delphi 中存储系列对象, 大家常用 TList 类; 有了 TObjectList(在 Contnrs 单元)以后, 存储对象就有了更好的选择, 因为从 TObjectList 列表中移除的对象同时会得到释放. 很少有人使用 TStringLis...
阅读全文
posted @
2008-04-26 22:25
万一
阅读(8376)
推荐(0) 编辑
用 TStringList 存取结构的例子 - 回复 Test1234 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/04/25/973346.html#1171532 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ...
阅读全文
posted @
2008-04-25 21:56
万一
阅读(2509)
推荐(0) 编辑
通过 TStringList 给系列数字倒排序 - 回复 lancerning 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/04/07/1134178.html#1141173 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;...
阅读全文
posted @
2008-04-07 23:52
万一
阅读(5336)
推荐(0) 编辑
Delphi 的按位运算详解 - 回复来宾"初学汇编"的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/04/02/1055762.html#1134153 http://www.cnblogs.com/del/archive/2008/04/02/1055648.html#1134081 Delphi 的按位运算符共有六个: not and or xor shr shl; 其中的 not and or ...
阅读全文
posted @
2008-04-02 12:01
万一
阅读(15064)
推荐(1) 编辑
如果提取网页中的变量 - 回复 lancernig 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/04/02/1131232.html#1133889 答案: WebBrowser1.OleObject.Document.ParentWindow.变量名; 譬如有这样一个页面(lancernig 举的例子), 如何提取其中的 pvs 呢: 测试页 ... 假定是把页面保存在 '...
阅读全文
posted @
2008-04-02 10:54
万一
阅读(3117)
推荐(0) 编辑
事件自调用 - 回复 maxcool 的问题
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; ...
阅读全文
posted @
2008-03-31 16:48
万一
阅读(2150)
推荐(0) 编辑
问与答[2008-3-31]
摘要:经 MaxCool 的提议, 专门开辟了这个专栏! 记得, 我刚刚接触 Delphi 时, 在某论坛上请教了一个问题: 在 Delphi 的代码中, 为什么 end 后面有些是 ";" 号、有些是 "." 号、而有些后面什么也没有? 你知道我得到的答复是什么? 令人伤心的回复, 永远也不会忘记: "看书去!". 今天万一掌握了一点点基础知识, 所以说: "万一虽然浅薄, 但乐于助人; 有什么...
阅读全文
posted @
2008-03-31 14:57
万一
阅读(3328)
推荐(0) 编辑
学习 TTreeView [15] - 连接数据库 (作为给 "丁永其" 和 "DELPHI万岁" 两位朋友的回复)
摘要:本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBClient, StdCtrls, ComCtrls, ExtCtrls; type TForm1...
阅读全文
posted @
2008-03-20 11:30
万一
阅读(10024)
推荐(0) 编辑
关于十六进制转十进制 - 回复 MaxCool 的问题
摘要:这不需要写函数. //如果十六进制非字符串, 无须转换, 直接赋值即可 var i: Integer; begin i := $FF; ShowMessage(IntToStr(i)); {255} end; //如果十六进制是字符串, 用 StrToInt 即可 var s: string; i: Integer; begin s := '$FF'; i :=...
阅读全文
posted @
2008-03-19 15:20
万一
阅读(6029)
推荐(1) 编辑