摘要： 一直都听说delphi中画布使用简单方便。现在我就利用画布实现一个简单的树机构的图形表示。系统支持节点选择、移动、保存树、打开树等。为了实现的方便用到了递归与指针，虽然效率有点问题但是在快速解决问题还是蛮好的。
程序写的比较乱，欢迎交流：sss@pacia.com.cn
源代码如下：
unit u_tree;
interface
uses windows, messages, s......
摘要：最近在做一个短信相关的项目。从联通网关deliver过来的短信都是ucs2编码的。
在网上找了些资料，找到一些使用java语言本身带的api转换的代码，但没有合适的delphi源码，所以经研究后自己写了一个，很简单的：
function ucs2togbk(const invalue: string): string;var i: integer;begin result := ; for i......
Delphi接口笔记
上一页 ...
tguid 声明
tguid = packed record 【程序编程相关:
专家访谈: Nelson Mattos】 【推荐阅读:
将DB2 Information Int】 d1: longword; 【扩展信息:
我们针对各种全异的数据源开发实体 EJB】 d2: word; d3: word; d4: array[0..7] of byte; end; guid 例子: {d2552d95-a2d7-48d8-aa27-f08e810779bd}
当 interface 变量 赋值为nil时自动释放.
可以将实现某接口的变量作为参数直接赋值给需要这个接口作为参数的过程或函数.
接口数组的声明:
femparray: array[1 .. max_employees] of iunknown;
ole容器中的自动化对象与import 后的 xxxx_tlb.pas 的通信方式.
var vsht:iunknown; isht:_workbook; begin olc.run; if not (olc.state=osrunning) then olc.run; ...
下一页 摘要：如果你想要改变windows的缺省打印机,你必须在windows的win.ini中改变设备键。 发送一条 wm_wininichange 消息：
var strini: array[0..max_path] of char; arrwindows: array[0..64] of char;begin getwindowsdirectory(strini, sizeof(strini)); st......
