- 博客(8)
- 资源 (31)
- 收藏
- 关注
转载 《大话设计模式》之 策略模式 Delphi实现
{ 策略模式 :用来封装算法,处理各种变法,而简单工厂模式,则是解决创建对象的问题 策略(Strategy)模式的用意是定义一组算法(algorithms),并将每个算法封装到具有共同接口的独立的类中, 从而使它们可以相互替换。 策 略模式让算法变化独立于使用它的客户端 使用情景,商场促销,进行商品打折,应用不同的算法,故采用策略模式。 1。一个抽取类 2
2012-06-28 09:35:56 1186
原创 U盘插入拔出检测
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; private { Priva
2012-06-25 13:38:45 793
原创 CRC16校验代码
function CRC16(Data: string): string;var I, Len, CRC: Word; pData: PChar;begin CRC := 0; Len := Length(Data); pData := PChar(Data); while Len > 0 do begin CRC := CRC xor (Word(pDa
2012-06-15 10:00:22 593
转载 代理模式
代理模式:给某一对象提供代理对象,并由代理对象控制具体对象的引用《GOF设计模式》。其实,我们一定要仔细理解代理二字,现实生活中,很多这样的例子,包括 如代理商,生产商和使用用户 间 有一个代理商。有人说,这不是多此一举。其实,有一个中介媒介,在具体的对象设计中,是很有弹性的。 一个公共接口,这个公共接口,必须被代理类和实际工作类 实现。就是说,外界只知道到代理类,而不知道实际工作类的存
2012-06-08 17:22:30 398
原创 尚未调用 coinitialize
use ActiveX在程序中加入initialization CoInitialize(nil);finalization CoUninitialize();以上问题是在创建TADOQuery的时候出现的
2012-06-08 16:07:47 1279
原创 DBGrid间隔行颜色
procedure TFrmQueryData.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var FindFieldCol: integer;begin if DBGrid1.DataSou
2012-06-05 15:38:07 1203
原创 取得结构体中的数组总长度
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type R_Test =packed record a,b,c:string[10];
2012-06-05 10:47:55 1511
原创 SQL执行中占CPU资源最多的前10条查询
select top 20 total_worker_time/execution_count as avg_cpu_cost,plan_handle,execution_count,(select substring(text,statement_start_offset/2+1,(case when statement_end_offset=-1then len(convert(nv
2012-06-01 15:52:17 4500
BaoFeng888s-app.zip
2019-05-31
visual studio 2010 主题包黑灰色
2016-02-25
IIS 5.1 Internet信息服务器安装包 For Windows 2000/XP
2013-01-07
win 7 解除远程桌面多用户同时连接(会话)数限制
2012-08-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人