摘要: 转载自 http://www.cnblogs.com/jieke/archive/2013/01/11/2855782.html 本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。 熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方 阅读全文
posted @ 2017-03-22 10:07 码农阿当lodor 阅读(586) 评论(0) 推荐(0) 编辑
摘要: type TWinSocketStringStream = class(TWinSocketStream) public function ReadString(nMaxLength: Integer; var str, sErrMsg: string): Boolean; fun... 阅读全文
posted @ 2016-01-13 23:28 码农阿当lodor 阅读(306) 评论(0) 推荐(0) 编辑
摘要: var FBar:TQRCode;beginFBar:=TQRCode.Create(nil); try FBar.Eclevel := QR_ECL_M; //误差级别 取值 QR_ECL_L 0 QR_ECL_M 1 QR_ECL_Q 2 QR_ECL_H 3 QR_ECL_MAX ... 阅读全文
posted @ 2015-09-09 15:19 码农阿当lodor 阅读(218) 评论(0) 推荐(0) 编辑
摘要: 一:关于类 TfrmFAModule = class; TfrmFAModuleClass = class of TfrmFAModule; 关于此申明的作用,可以传递一个类参数,比如 function ShowModule(AModuleClass: TfrmFAModuleC... 阅读全文
posted @ 2015-08-20 13:17 码农阿当lodor 阅读(183) 评论(0) 推荐(0) 编辑
摘要: 好多程序都给结构体变量设定了一个结构体指针 例如:PAbc = ^TAbc;TAbc = recorda: string[10];b: string[5];c: string[1];end;var Abc: PAbc;New(Abc);...Dispose(Abc); ... 我不清楚这是为什么 定... 阅读全文
posted @ 2015-08-06 12:47 码农阿当lodor 阅读(217) 评论(0) 推荐(0) 编辑