2008 年 5月 9 日随笔档案 - 万一

2008年5月9日

摘要： Variants 单元下的 VarType 函数可以获取变量类型, 但它返回的只是一个数字; 需要再结合一下在 System 单元里定义的这些常量: varEmpty = $0000; varNull = $0001; varSmallint = $0002; varInteger = $0003; varSingle = $0004; varDouble = $0005... 阅读全文

posted @ 2008-05-09 23:01 万一阅读(5673) 评论(4) 推荐(0)

内存管理[5]

摘要：本例在建立一个新的堆前后分别通过 GetProcessHeaps 函数获取了当前进程的堆句柄列表, 没想到一个最简单的程序也有 5 个堆. 效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr... 阅读全文

posted @ 2008-05-09 19:12 万一阅读(5761) 评论(15) 推荐(2)

内存管理[4]

摘要：一个使用私有堆的例子: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; proc... 阅读全文

posted @ 2008-05-09 15:22 万一阅读(6590) 评论(19) 推荐(1)