摘要: 一直都听说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接口笔记
// a:=stringtoguid({000208fb-0000-0000-c000-000000000046});
// ichart 与 chart接口各自具有不同的guid根本不相容 【程序编程相关:
专家访谈: Nelson Mattos】 【推荐阅读:
将DB2 Information Int】// a:=stringtoguid({000208fb-0001-0000-c000-000000000046});} 【扩展信息:
我们针对各种全异的数据源开发实体 EJB】 // stringtoguid 用于将 字符串guid转换为 tguid // guidtostring 用于将tguid转换为字符串guid //varsupports 判断 variant 变量 是否支持 tguid这个接口
procedure tform1.btngenerateclick(sender: tobject);
var guid: tguid; begin cocreateguid(guid); memo1.lines.add(guidtostring(guid)); end; supports 函数 判断是否支持特定接口; cocreateguid 这个procedure 可以生成guid号. guidtostring 将tguid转换成字符串guid stringtoguid 将字符串guid转换成 tguid 类型...
下一页 摘要:如果你想要改变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......