[控件]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), (