2016 年 – 印象派

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

2016-12-022016-12-02 • Delphi • 暂无评论 • Aar0n •3,605 次查阅

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

[代码]个人所得税过程

2016-11-302016-11-30 • Delphi • 暂无评论 • Aar0n •2,257 次查阅

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

[代码]百钱买百鸡过程

2016-11-222016-11-22 • Delphi • 暂无评论 • Aar0n •2,226 次查阅

百钱买百鸡过程。 procedure TForm1.Button1Click(Sender: TObject); var hen, cock, chick: integer; answer: string; begin for cock:=0 to 20 do for hen:=0 to 33 do begin chick:=100-hen-cock;//鸡雏的数目 if chick mod 3 = 0 then//鸡雏的数目必须是3的倍数 if cock*5+hen*3+chick div 3

[代码]生成九九表的过程

2016-11-182016-11-18 • Delphi • 暂无评论 • Aar0n •2,332 次查阅

九九乘法表的一个过程。 procedure nine(n:integer); var i, j: integer; line: string; begin for i:=1 to n do begin //生成第i行 line:=''; //第i行共有i句口诀 for j:=1 to i do begin line:=line+inttostr(j)+'×'+inttostr(i)+'='+inttostr(i*j)+' &#3

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

2016-11-022016-11-02 • Delphi • 暂无评论 • Aar0n •2,180 次查阅

目前比较能用的一个函数了，来源记不清楚了好像是咏南的博客。声明函数，再调用即可。代码如下： 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版本问题

2016-10-172016-10-17 • Delphi • 暂无评论 • Aar0n •2,465 次查阅

最近从原先使用的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中文乱码问题解决办法

2016-10-062016-10-06 • Technology • 暂无评论 • Aar0n •2,343 次查阅

一、安装包管理器（如果已经安装可以忽略）使用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

登录