delphi学习
wizard_zq
这个作者很懒,什么都没留下…
展开
-
文件目录函数
//下面函数返回当前程序的目录function GetCurrentPath :string;begin Result:=ExtractFilePath(Application.Exename);end;//得到光驱Function GetCDROM :String;Var drv :DWORD; mask :BYTE; drive :Str转载 2013-10-13 13:18:38 · 306 阅读 · 0 评论 -
OnKeyDown;OnKeyUp;OnKeyPress辨析
键盘扫描码处理 在键盘按键被押下时,第一个会产生的是所谓的扫描码(Scan Code),也就是硬体直接传回的按键代码,然后作业系统会把它转换为虚拟码(Virtual Key ),也就是用一些有意义的符号或代码来代替之,以便应用程式能够处理;例如一般键盘上都有两个「Enter」键(第二个在键盘最右下角),它们在硬体上的扫描码(Scan Code)一定不同,但虚拟码(Virtual Key)都转载 2013-10-22 13:44:45 · 452 阅读 · 0 评论 -
数据类型-子界
容易忘记,留作脑补//定义type Ten = 1..10; OverHundred = 100..1000; Uppercase = 'A'..'Z'; //TMonth = Jan..Dec;//应用var UppLetter: UpperCase;begin UppLetter := 'F';//判断是否属于子界范围va转载 2013-11-11 10:02:27 · 320 阅读 · 0 评论 -
设置本地时间格式
在Delphi中,特别是在写管理系统软件时,经常要用到 FormatDateTime 以将 TDateTime 格式的日期时间转换成字符串形式的值显示或保存起来,或者用 StrToDateTime将字符串形式的日期时间转换成 TDateTime 然后再做其他操作。在进行时间或日期的转换时,会使用系统当前设定的时间日期格式。而如果时间日期格式与字符串中的表示方式不相符,会使转换过程失败。例如当前转载 2013-12-06 10:07:18 · 446 阅读 · 0 评论 -
delphi 解析规律字符串方法
//vstr:需要解析字符串,count:位置编号,sign:分隔符//如果需要解析的字符串不包含中文unicode编码,将字符类型全部替换为string;解析 xx|xxxx|xxxxx|xxxxx| 此种类型的字符串function getpart(vstr: WideString; count: Integer; sign: WideString): WideString;v原创 2014-03-28 12:04:22 · 443 阅读 · 0 评论