Delphi 相关 - 文章分类 - 万一

程序的开机关机重启，开机启动，休眠功能

摘要：TShutDownStatus = (sdShutDown, sdReboot, sdLogOff, sdPowerOff); procedure ShutDown(sdStatus: TShutDownStatus); var NewState: TTokenPrivileges; lpLuid: 阅读全文

posted @ 2019-05-24 09:57 万一阅读(193) 评论(0) 推荐(0)

Memo 分行

摘要：procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var str,S1,S2: string; arr,A1,A2: TArray; ... 阅读全文

posted @ 2016-01-13 12:20 万一阅读(173) 评论(0) 推荐(0)

时间转换函数

摘要：procedure ChangeList(var lt: TStringList);var i: Integer; str: string; arr: TArray;begin for i := 0 to lt.Count - 1 do begin str := lt[i].Trim... 阅读全文

posted @ 2016-01-04 14:04 万一阅读(178) 评论(0) 推荐(0)

到36进制

摘要：function EncodeCNStr(const aStr: string): string;const CharArr: array of Char = ['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G',... 阅读全文

posted @ 2015-12-15 20:41 万一阅读(224) 评论(0) 推荐(0)

ajax

摘要：//////////////////LoadScriptfunction loadScript(url, callback){ var Script = document.createElement("script") ; Script.type = "text/javascript";... 阅读全文

posted @ 2015-11-06 12:28 万一阅读(176) 评论(0) 推荐(0)

mht

摘要：procedure WB_SaveAs_MHT(WB: TWebBrowser; FileName: TFileName); var Msg: IMessage; Conf: IConfiguration; Stream: _Stream; URL : widestring; begin if no... 阅读全文

posted @ 2015-09-27 18:47 万一阅读(848) 评论(0) 推荐(0)

批量获取类的方法与属性

摘要：uses Rtti;function GetParentClassName(AClass: TClass): string;begin Result := AClass.ClassName; while AClass.ClassParent nil do begin AClass :=... 阅读全文

posted @ 2014-05-30 09:45 万一阅读(288) 评论(0) 推荐(0)

关于设计模式

摘要：1、FACTORY一追MM少不了请吃饭了，麦当劳的鸡翅和肯德基的鸡翅都是MM爱吃的东西，虽然口味有所不同，但不管你带MM去麦当劳或肯德基，只管向服务员说“来四个鸡翅”就行了。麦当劳和肯德基就是生产鸡翅的Factory?工厂模式：客户类和工厂类分开。消费者任何时候需要某种产品，只需向工厂请求即可。消费者无须修改就可以接纳新产品。缺点是当产品修改时，工厂类也要做相应的修改。如：如何创建及如何向客户端提... 阅读全文

posted @ 2009-10-27 09:07 万一阅读(370) 评论(0) 推荐(0)

文章分类 - Delphi 相关