Aar0n – 第 12 页

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

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

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

最近从原先使用的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,392 次查阅

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

[代码]冒泡排序的过程

2016-09-302016-10-01 • Delphi • 暂无评论 • Aar0n •2,438 次查阅

冒泡排序的算法。 procedure sort(var data:array of integer; n:integer); var i, j, temp:integer; begin for j:=n-1 downto 1 do for i:=0 to j-1 do begin //交换次序不对者 if data[i]>data[i+1] then begin temp:=data[i]; data[i]:=data[i+1]; data[i+1]:=temp; end; end; end;

[代码] 回车移动焦点

2016-09-122016-09-12 • Delphi • 暂无评论 • Aar0n •2,352 次查阅

在当前焦点按下回车自动移动到下移控件。 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then begin keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下 keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); /

[代码]动态创建窗体

2016-09-082016-09-12 • Delphi • 暂无评论 • Aar0n •2,320 次查阅

程序动态创建窗体，是优化程序一个很重要的细节。 procedure TForm1.N3Click(Sender: TObject); var Form2:TForm2; begin Form2:=TForm2.Create(nil); try Form2.ShowModal; finally form2.Free; end; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Acti

[代码]设置窗体位于最前

2016-09-072016-09-12 • Delphi • 暂无评论 • Aar0n •2,331 次查阅

这个功能是利用了系统的API，让程序位于最前，在实际中还是有一定的作用的。 procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,0)//设置窗体至上 else SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width,Height,0)

登录