摘要:一.模式解说 以客户端透明的方式动态地将责任附加到对象上.若要扩展功能,装饰者提供了比继承更有弹性的替代方案。装饰者模式用意是要保持对象接口,增强对象性能. 实际生活中经常发现装饰者模式.比如,你需要装裱挂画,你不想讲画和画框定死以便更换不同的画框.下图就是一个装裱挂画的装饰者模式. 装饰者模式的使
阅读全文
摘要:原文来自:http://www.delphitop.com/html/kongjian/2079.html TClientDataSet控件继承自TDataSet,其数据存储文件格式扩展名为 .cds,是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能,而本身并不依赖上述几
阅读全文
摘要:来源:http://blog.csdn.net/arbin_he/article/details/7415300 var FSetting : TFormatSettings; DateTime1: tDateTime; begin FSetting := TFormatSettings.Creat
阅读全文
摘要:在Delphi7上TSkinData控件的Options属性值xoToolbarButton和oxCaptionButtonHint设置为TRUE 报错:无效的属性值 在D7上使用5.8.10.1版本的TSkinData控件一定要将Options属性值xoToolbarButton和oxCaptio
阅读全文
摘要:今天启动delphi2010报错:‘displayNotification: 堆栈溢出在网上搜索了下,解决方法:1.清理IE的历史记录,删除浏览器缓存...一定要清楚默认浏览器的历史缓存,我平常用的是谷歌,系统默认的是360..........2.去掉delphi2010的欢迎界面(welcomep...
阅读全文
摘要:由于在Windows安装了最近的更新(KB2982791, KB2970228)后,Delphi的IDE需要创建的一个文件%TEMP%\EditorLineEnds.ttr会被系统锁定,导致除非重新启动操作系统,否则Delphi 8~2010无法启动两次。Delphi的IDE在启动时提取了一个字体资...
阅读全文
摘要:1、首先启动Delphi 7 在Tools->Environment Options->Library Path中 附加..\rxlib-2.7.7\Units 目录2、在delphi Component-> Install Packages...将 名为三个RxLib...的包删除(Remove)...
阅读全文
摘要:语法:function AnimateWindow(hWnd: HWND; dwTime: DWord; dwFlags: DWORD): BOOL;参数:hWnd 窗口句柄 DWord 动画时间(毫秒级)一般大于200 dwFlags 显示方式,一般有下面标志: AW_SLIDE:...
阅读全文
摘要:在application.messagebox()函数中的第一个参数要用到PAnsiChar。所有的原生字符串类型String转PAnsiChar都需要经过AnsiString过渡strAnsi:= PAnsiChar(AnsiString(str));转载自CSDN博客 :http://blog....
阅读全文
摘要:原文来自:http://blog.csdn.net/yanjiaye520/article/details/6543165有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。1.CreateProcess因为使用复杂,比较少用。2.WinExec主...
阅读全文
摘要:原文来自:http://blog.163.com/chenxiaofan_wy/blog/static/1648565882012281112084/函数原型:function StringReplace (const S, OldPattern, NewPattern: string; Flags...
阅读全文
摘要:原文来自:http://yjxandsp.blog.163.com/blog/static/163679712011910105112308/1.如果要创建一个mdi child,先看是否有这个child 存在,如果有,则用它,如果没有再创建//该函数判断MDI 子窗体是否存在,再进行创建和显示fu...
阅读全文
摘要:1、在源字符串Src中查找子串S,返回Src中S之前的部分Function Before( Src,S:string ): string ;Var F: Word ;begin if Src = '' then Before := ''; F := Pos(S, Src); if ...
阅读全文
摘要:函数原型:Unit Systemfunction Pos(Substr: string; S: string): Integer;说明:Substr : 子字符串.S : 母字符串. 寻找子字符串在母字符串中的位置(从下标 1 开始)返回值:返回子字符串在母字符串中的位置,未找到返回 0
阅读全文
摘要:函数原型:Unit Systemfunction Copy(S: string; Index, Count: Integer): string;说明:S : 字符串. Indexd : 从第几位开始拷贝,从1开始. Count : 总共要拷贝几位. 从母字符串拷贝至另一个字符串返回值:结果返回新字符...
阅读全文