[控件]DevExpress删除TreeList已选择的节点

来源于研究分享,有能起到帮助的就默默的感谢下他吧哈! // 删除TreeList已选择的节点 procedure TreeListDeleteChecked(ATreeList: TcxCustomTreeList); overload; procedure TreeListDeleteChecked(ANode: TcxTreeListNode); overload; procedure TreeListDeleteChecked(ATreeList: TcxCustomTreeList);

[代码]个人所得税过程

个人所得税过程 procedure TForm1.Button1Click(Sender: TObject); //定义三个单精度浮点数,分别表示应纳税总额,区间应纳税总额,累加纳税额 var sum, para, tax: single; begin //取得应纳税总额,并将累计纳税额变量置0 sum:=strtofloat(Edit1.Text); //这个函数进行从字符串到浮点型的转化 sum:=sum-800; tax:=0; //如果满足条件才执行相应代码 if sum>2000

[函数]获取汉字首拼音字符函数

目前比较能用的一个函数了,来源记不清楚了好像是咏南的博客。 声明函数,再调用即可。 代码如下: function CnPYIndex(const CnString: string): string; { 返回中文的拼音首字母 } const ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (

[控件]Kbmmw升级4.93.10版本问题

最近从原先使用的4.90.4版本打算升级下。 可是在升级安装控件时报错,无法通过编译。 具体提示代码忘记了……,类似indy message之类的。 最终发现是原先配置里面的支持版本过低导致。 原先貌似只支持到INDY_10_6_0,但目前新ide是INDY_10_6_2, 后面加上完事,编译通过。 {$DEFINE KBMMW_USING_INDY_10} //{$DEFINE KBMMW_SUPPORT_INDY_10_2_3} //{$DEFINE KBMMW_

[软件]Sublime text3中文乱码问题解决办法

一、安装包管理器(如果已经安装可以忽略) 使用Ctrl+`快捷键或者通过View->Show Console菜单打开命令行,粘贴如下代码: import urllib.request,os; pf = 'Package Control.sublime-package'; ipp = sublime.installed_packages_path(); urllib.request.install_opener( urllib.request.build_opener( ur