摘要:// a:=stringtoguid({000208fb-0000-0000-c000-000000000046});// ichart 和 chart接口各自具有不同的guid根本不相容// a:=stringtoguid({000208fb-0001-0000-c000-000000000046});}// stringtoguid 用于将 字符串guid转换为 tguid// guidtos......
摘要: 一直都听说delphi中画布使用简单方便。现在我就利用画布实现一个简单的树机构的图形表示。系统支持节点选择、移动、保存树、打开树等。为了实现的方便用到了递归与指针,虽然效率有点问题但是在快速解决问题还是蛮好的。
程序写的比较乱,欢迎交流:sss@pacia.com.cn
源代码如下:
unit u_tree;
interface
uses windows, messages, s......
组件制作之一(概念)
作为组件制作的开始,应该了解一些概念,我以为这些概念是非常重要的,将可以作为以后实践的理论基础. 【程序编程相关:
跨多个数据源的 J2EE 开发: 细节探】 【推荐阅读:
专家访谈: Carol Rigdon,I】? 【扩展信息:
将DB2 Information Int】 一,?组件的简要层次结构.一般情况下,vcl的组件可以从tcomponent为开始.其最明显的特征就是它的属性可以在设计时通过对象察看器来操纵,另外,他还能拥有其他组件. 从tcomponent下,分出非可视组件与可视组件. 非可视组件如topendialog,ttimer,ttable等,这些组件因为继承自tomponent,所以也就继承了在设计时可以被操纵的特性. 可视化组件始自tcontrol,是它引入了可视化属性与方法,使继承自它的类都有了这些可视化特性. tcontrol又分出两类组件类型:从twincontrol(窗口控件)自下的控件,与从tgraphiccontrol(图形控件)自下的控件.继承自twincontrol的控件将windows控件进行封装,所以拥有windows控件的很多特性,比如可以得到焦点,有唯一的句柄,用户可以通过发送消息与这些控件进行交互等.而继承自tgraphiccontrol的控件,也是可见的,但没有句柄,可以称之为图形控件,比如tlabel,tbevel,都是delphi画出来的,并不占用系统资源. 二,属性 先看一个简单的属性定义: tsomeobj=class ??????????private ????????????fcount:integer; ??????????protected ????????????procedure?setcount(value:integer); ??????????published ??property?count:integer?read?fcount?write?setcount?default?0;//属性定义 ??????????end; ????该属性从私有成员fcount读出值,而靠setcount方法设置值到私有成员fcount. 属性的优势在于可以很直观进行读写,而又不同于私有成员.因为属性可以通过写访问方法来保护私有成员: procedure?tsomeboj.setcount(value:integer); ??????????begin ?????????????if?fcountvalue?then ?????????????????fcount:=value; ...
下一页 摘要:最近在做一个短信相关的项目。从联通网关deliver过来的短信都是ucs2编码的。
在网上找了些资料,找到一些使用java语言本身带的api转换的代码,但没有合适的delphi源码,所以经研究后自己写了一个,很简单的:
function ucs2togbk(const invalue: string): string;var i: integer;begin result := ; for i......