大富翁笔记

保存 评价 游戏规则 免费注册  资料下载 关于本站 
问题分类 编程问题 非技术题 富翁列表 我的信息 提出问题 在线富翁 富翁日历 笔记列表 我的笔记 写作笔记 全文检索 《专家门诊》 

 
富翁名称
富翁密码

 请记住我

富翁名称

免费注册

--------------------------------------------------------------------------------

--------------------------------------------------------------------------------

大富翁论坛版权所有
 KeyLife富翁笔记
(此作品参加“Borland ALM 产品开发者竞赛参赛”，请大家给他打分。) 
作者　: joyyuan97
标题　: Delphi（一） --惯用法
关键字: 惯用法
分类　: 开发经验
密级　: 参赛
(评分:★★ , 回复: 10, 阅读: 5319) ??
Delphi（一） --探索：  http://www.delphibbs.com/keylife/iblog_addblog.asp
{ No. 1 }
//创建模式窗体的句子
class procedure TMyForm.RunForm(AObj1, AObj2: TObject);
var
vForm: TMyForm;
begin
vForm := TMyForm.Create(Application);
with vForm do
Try
  InitForm(AObj1, AObj2);
  ShowModal;
Finally
  Free;
end;
end;
(*说明：
通过class声明的函数，类似与VC中的静态函数；使用语句：TMyForm.RunForm(vObj1, vObj2);
其他具体的，参考：Delphi 帮助中的，class 类说明。
强调这个惯用法，就是为了：
1、如果此窗体在多处被使用，那么可以保证统一都调用此段代码；
2、如果功能上有所修改，比如：根据ShowModal的返回值不同进行处理，那么只修改此函数就行了。
3、程序封装性好，易于维护和工作交接。
*)

//******** 临时放这里
{ No. 12 }

以下是我编程时的要求：（部分信息没有语言限制）
//以下的解决方案，几乎都可以在上面的方法中，找到
1、减少程序的复杂度。a、减少函数个数，使用Case、Tag方式，学习实现Perform定义方式；b、减少单元嵌套关系，使用消息传递方式，减少窗体单元的互相包含。
2、减少

 

2003-5-29 12:58:00   
 查看评语???    

 2003-5-29 13:12:19    Tag 的使用{ No. 2 }
//窗体工具栏按钮事件的响应
procedure TMyForm.RunOperate(ATag: Integer);
begin
  Case ATag of
  1: MyButton.Color := clRed;
  2: MyButton.Color := clGreen;
  3: MyButton.Color := clBlack;
  end;
end;

procedure TMyForm.ToolBtnClick(Sender: TObject);
begin
  RunOperate(TControl(Sender).Tag);
end;

//如果你在某下拉菜单中，也需要执行类似功能则
procedure TMyForm.MenuItemClick(Sender: TObject);
begin
  RunOperate(TMenuItem(Sender).Tag);
end;

(*说明：
1、结构清晰
2、相关的信息集中，比较容易查错、修改和维护
3、提高程序的适应、扩展能力；比如现在要求不在工具栏按钮中实现，而要求在不同按钮中实现，则修改容易。
建议：每个分类后面只跟一行或不多的几行代码，如果代码比较多，使用过程函数替代。
比较有意思的是，我经常如下写：
Case btnMyButton.Visible of
{ 显示 } True: ...
{不显示} False: ...
end;
*)

 
 2003-5-29 13:40:17    事件指针 做参数{ No. 3 }
//对于列表等的读取使用事件指针的方式
type
  TDataSetEvent = procedure (DataSet: TDataSet; AIndex, ACount: Integer) of Object;
//从 TADOQuery派生而来的类
procedure TMyADOQuery.EnumRecord(AWhereStr: String; APro: TDataSetEvent);
begin
  Close;
  SQL.Clear;
  SQL.Add('Select * From Table1');
  if AWhereStr <> '' then
    SQL.Add('Where ' + AWhereStr);
  Open;
  While Not Eof do
  begin
    if Assigned(APro) then APro(Self, RecNo, RecordCount);
    Next;
  end; 
  Close;
end;

(*说明：
此方法来自与Window中，枚举当前所有子窗体的API函数，EnumChildWindow
1、原则：尽量将数据读取与数据显示、数据处理等分离；如：MVC等都是此目的。
2、程序扩展性增强，如果您原来希望在列表中显示或处理某列信息，后来改为用ComboBox，则在修改程序时，不在阅读数据读取部分，只需要修改信息显示等即可。又比如，现在要求您在读取记录时，用进度条显示读取进度等。
*)

 
 2003-5-29 13:48:14    常量数组 { No. 4 }
//使用数组

{ 在惯用法 No.2 中，实现了如下的内容
procedure TMyForm.RunOperate(ATag: Integer);
begin
 Case ATag of
 1: MyButton.Color := clRed;
 2: MyButton.Color := clGreen;
 3: MyButton.Color := clBlack;
 end;
end;
}
//那么用数组方式实现，则就比较理想了
procedure TMyForm.RunOperate(ATag: Integer);
const
  MyButtonColorMax := 3;
  MyButtonColor: array [1..MyButtonColorMax] of TColor = (clRed, clGreen, clBlack);
begin
 Case ATag of
 1..MyButtonColorMax:  MyButton.Color := MyButtonColor[ATag];
 101:....
 end;
end;

(*说明：
对于数组方式使用，只要注意数组的上限或下限使用常量来实现，然后在以后使用中都尽量使用此常量进行数组循环读取就行了。
*)

 
 2003-5-29 22:43:32    消息机制 减少类公共函数 { No. 5 }
//如何让一个窗体中，尽量减少公共函数的定义;
{ 比如：要实现一个当前窗体控件的属性列表窗体，当需要刷新属性窗体；改变某属性值；添加新的属性等；会有很多需要交互的信息。如果我们使用类公共函数，则需要定义很多的公共函数。同时，如果需要进行窗体类型转换，转换为目标窗体类型才可以使用公共函数。所以，会遇到两个单元需要互相包含的情况 }
//解决方案：
TfrmMyForm = class(TForm)
  FfrmProperty: TForm;
end;

...
  FfrmProperty := TfrmProperty.MyCreate(Application, Self);
...

//当需要刷新属性窗体时
  FfrmProperty.Perform(WD_REFRESHPROPERTYLIST, 0, 0);

TfrmProperty = class(TForm)
private
  FMyForm: TForm;
  procedure WDREFRESHPROPERTYLIST(var Message: TMessage); message WD_REFRESHPROPERTYLIST;
public
  constructor MyCreate(Owner: TComponent; AForm: TForm);
end;

constructor TfrmProperty.MyCreate(Owner: TComponent; AForm: TForm);
begin
  inherited Create(Owner);
  FMyForm := AForm;
end;

(* 对于使用消息的方式，可以减少窗体公共函数的定义。同时，提高程序的可扩充性。如果，使用他的窗体替代时，则可以比较轻松的转换，因为如果最多也就是您的窗体，对当前的消息没有进行处理而已 *)

 
 2003-5-29 23:32:28    使用注册列表管理可能扩充的模块{ No. 6 }

//项目：要求你对一个数据集支持多种输出显示方式

...例子,以后给出

(* 说明：
1、“多种输出方式”，说明输出方式在今后的应用中可能会经常扩充，因此要在程序设计时考虑到输出方式的易扩充性。
2、参考VCL中，控件注册(RegisterComponents)的机制，可以发现VCL中大量的使用到了注册机制；其中比较经典的就是控件属性编辑器的注册了。
 *)

 
 2003-5-30 13:08:04    使用预定义控制程序版本{ No. 6 }

//如果您做的是一个二次开发平台的程序，则必须涉及到产品版本控制和项目版本控制问题
//通常使用预定义的方式控制

//语句比较简单了就是：
{$DEFINE JOYYUAN97}
{$IFDEF JOYYUAN97} {ELSE} {ENDIF}
{$UNDEF JOYYUAN97}

(*说明：
1、将预定义划分在多个单独的文件中。
2、在每个单元的最前头但在Unit 后，使用{$I ...} 将文件包含(Include)进当前单元
3、根据预定义情况控制当前单元所能包含的单元文件
4、尽量单独划分一个针对项目的预定义文件在包含所有预定义文件后，包含此文件，则在此文件中，可以针对项目的需要，将取消部分预定义{$UNDEF JOYYUAN97}
*)

 
 2003-5-30 13:35:35    使用函数指针，减少单元项目包含{ No. 8 }

//我经常的认为减少单元的包含，是做公共单元的第一步，所以在如何尽量减少单元包含
//也就是如何减少程序单元的耦合性上，应多下工夫。

{ 情景描述：
TMyFormManager： 窗体管理类
TMyForm：数据窗体基础类
TMyFormAccess：窗体信息保存和读取类。将窗体信息保存到数据库或其他什么类型的结构中
分析：
1、窗体基础类(TMyForm) 和 窗体管理类(TMyFormManager)需要在一个单元 uManagers中实现。
2、窗体具体实现类(TMyImageForm)单元 fMyImange 需要包含单元uManagers，进行窗体继承，和窗体管理。
3、窗体数据读取类(TMyFormAccess)单元 uMyAccess 需要包含单元uManagers和单元fMyImange
问题：
  如果我希望实现窗体保存，那么应该在窗体的某个按钮事件中实现。则涉及到窗体单元需要包含窗体数据访问类单元，而如果放在窗体基础类中，则单元uManager又必须包含单元uMyAccess。
  当数据访问，即数据存储格式会根据要求而改变并要求可扩充时，则单元包含必定是一个隐患。
解决办法：使用函数指针变量。
1、在单元uManagers中定义一个，保存数据信息的函数指针变量。
2、在应用程序初始化的时候给这个函数指针变量赋值。
3、在需要保存窗体信息时，判断如果指针不为空，则执行函数保存窗体信息。

}

 
 2003-6-1 20:10:11    常量，认识常量，使用常量{ No. 9 }
有很多书都都介绍了常量定义的重要性，我也会经常想到，但是看看VCL源码才知道，自己忽略了，别人对常量的使用情况。

1、我们经常使用的消息的定义就是：声明一个常量，然后在适当的时候使用之。
  通常定义和使用：
  const
    WD_MyMessage = WM_User + 101;
  type
  TMyForm = class(TForm)
  ...
    procedure WDMyMessage(var message: TMessage); message WD_MyMessage; {响应消息位置}
  end;
  但是，如果您将{响应消息位置}语句改写为：
    procedure WDMyMessage(var message: TMessage); message WM_User + 101;
  同样，编译可以成功，使用也正常。所以，常量定义在Window系统处理和接口中应用非常普遍。

2、在Delphi中，我们定义了颜色变量，clRed, clGreen等，也都是定义的常量，便于以后的使用。通过这个观察我发现，常量的定义应该是在项目中，可部分复用的，所以，可以定义一个标准常量单元，以便在个项目中，复用定义的常量。

 
 2003-6-1 20:26:10    一个Delphi中，常用到的数组{ No. 10 }

对TIdentMapEntryd类型的数组定义和使用，Delphi中，有比较完善的实现。
  TIdentMapEntry = record
    Value: Integer;
    Name: String;
  end;

1、数组定义：array[0..ArrMax] of TIdentMapEntry
  可参考：Controls单元中:
  Cursors: array[0..21] of TIdentMapEntry = (
  ...
  );
2、两个互相求值得函数： IntToIdent（由Value求Name）和 IdentToInt（由Name求Value）；
  具体应用可以参考：IdentToCursor 和 CursorToIdent。

3、应用：a、直接应用此树组定义方式和数组操纵函数；b、学习函数中，对数组访问和操纵的方式。c、学习标准的信息访问函数定义： function IntToIdent(Int: Longint; var Ident: string; const Map: array of TIdentMapEntry): Boolean; 具体返回的信息由参数方式返回回来，至于访问是否有效，则通过函数的布尔返回值加以判断。

 
 2003-6-1 20:49:46    由特例到普通的发现{ No. 11 }
我通过对 Cursors 的定义和操作函数的跟踪发现：
1、如 { No. 10 }中介绍的，将Cursors的定义和一般操作通用化。
2、提供 Int 和 Ident互转化的函数。
3、提供数组列表信息循读取的函数： GetCursorValues；其中，使用了 { No. 3 } 中介绍的“事件指针 做参数”读取列表信息的方法。

{ No. 6 } 的补充：
例子：
procedure RegisterComponents(const Page: string;
  ComponentClasses: array of TComponentClass);
begin
  if Assigned(RegisterComponentsProc) then
    RegisterComponentsProc(Page, ComponentClasses)
  else
    raise EComponentError.CreateRes(@SRegisterError);
end;

解读：
1、使用注册的方式，记录可使用的控件的类型等。
3、对于 RegisterComponentsProc 使用了{ No. 8 } 中“使用函数指针，减少单元项目包含”的方法，便于将来程序的扩充，版本的升级等。

 
 2003-6-1 21:41:17    只定义一个公共函数{ No. 11 }
//项目描述：现在要实现一个CAD画图或Visio系统，要求有好的扩展性和易维护性；
//并且要求耦合性低，便于，将来系统的部分或扩展后的系统封装后，直接在今后的项目中使用

设计：
1、设计一个图形对象抽象类，在此类中，定义一个抽象函数 CadPerform，函数的参数参照function TControl.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
2、在图形管理类中，实现一个图形对象列表的管理，列表中保存的是抽象对象的指针。
3、对于要对具体类对象进行操纵控制时，只需通过条用CanPerform函数，然后根据当前操作的类别传入 Msg, 并传入相应的参数信息。

实现： TCad 为由抽象类继承下来的第一层控件类
function TCad.CadPerform(Msg: Cardinal; WParam, LParam: Longint): Longint;
begin
  Case Msg of
  My_Message1: Result := MyMessage1(WParam, LParam);
  My_Message2: Result := MyMessage2(WParam, LParam);
  end;
end;
对于，TPoint继承自 TCad， CadPerform函数实现如下。
function TPoint.CadPerform(Msg: Cardinal; WParam, LParam: Longint): Longint;
begin
  Case Msg of
  My_Message1: Result := MyMessage1(WParam, LParam); //屏蔽了TCad中此操作类型的处理
  My_Message3: Result := MyMessage3(WParam, LParam);
  else Result := inherited CadPerform(Msg, WParam, LParam);
  end;
end;

(*说明：
因为，我们对图形对象的操作会非常频繁，所以我们通过定义一个公共开放的接口函数来实现，类的高封装性和程序的易维护性、好扩展等性能。
*)

 
 2003-6-1 21:58:46    使用广播，实现管理类对管理列表对象的通知 { No. 13 }

//对于{ No. 12 } 项目描述中，当画图的窗体控件属性或状态改变时，经常会需要通知所有的图形对象，进行相应的改变。
//则如果只定义一个广播函数，就可以实现父子通知的话，也会提高程序的可重用性、扩展性、易维护性等，使类结构清晰。

//比如：1、在Visio和MapInfo中，如果当前窗体的比例尺（缩放比例）改变时，需要用新的比例尺重画当前所有的显示图形对象。2、当当前窗体默认窗体字体改变后，对于默认使用窗体字体显示文字信息的图形对象，他们的文字字体也应该相应的改变。

//解决方案，参考TWinControl中，属性或状态改变时，通知所有子Controls的处理机制：
procedure TWinControl.NotifyControls(Msg: Word);
var
  Message: TMessage;
begin
  Message.Msg := Msg;
  Message.WParam := 0;
  Message.LParam := 0;
  Message.Result := 0;
  Broadcast(Message);//广播当前的变更消息
end;
其中：
procedure TWinControl.Broadcast(var Message);
var
  I: Integer;
begin
  for I := 0 to ControlCount - 1 do
  begin
    Controls[I].WindowProc(TMessage(Message));
//改为：with TMessage(Message) do Cads[I].CadPerform(msg, WParam, LParam);
    if TMessage(Message).Result <> 0 then Exit;
  end;
end;
但是，我们处理图形对象时，可能会直接调用 Cads 的CanPerform公共函数即可

 
 2003-6-1 23:37:43    需要时，动态创建你的对象比如：http://www.delphibbs.com/keylife/iblog_show.asp?xid=824 中的
//*******方案二  当需要的时候在创建属性窗体
uses
 ...
 fProperty;
type
 TfrmMyMap = class
   ...
   procedure OnfrmMyMapDestroy(Sender: TObject);
   procedure OnMapGeoSelected(AGeo: TGeometry);
 private
   FfrmProperty: TfrmProperty;
   procedure ShowPropertyForm(aVisible: Boolean);
 public
 end;

procedure TfrmMyMap.ShowPropertyForm(aVisible: Boolean);
begin
 if Not Assigned(FfrmProperty) then FfrmProperty := TfrmProperty.Create(Application);
 FfrmProperty.Visible := aVisible;
end;

procedure TfrmMyMap.OnfrmMyMapDestroy(Sender: TObject);
begin
 if Assigned(FfrmProperty) then FfrmProperty.Free;
end;

procedure TfrmMyMap.OnMapGeoSelected(AGeo: TGeometry);
begin
 if Assigned(FfrmProperty) then FfrmProperty.MyRefresh(AGeo);
end;

这里说明了：
1、需要时，动态创建你的对象 FfrmProperty
2、当前对象释放时，判断你的对象的合法性，然后释放动态创建的对象。

 
 2003-6-4 18:08:49    创建接口还是创建结构{ No. 15 }

//项目描述：我开发一个表格控件时，如果我将单元格设置为一个Com，则如果表格现实的信息过多的话，则装载速度无法保证，甚至于有死机的可能。我之所以用Com是为了将来每个单元格的处理和信息都可以在控件外扩展。

我的解决办法是：对于每个从Cell派生来的控件创建一个实例，通过动态创建若干个结构对象Record来记录个单元格的信息，如果需要对单元格进行操作，则将结构对象指针赋值给Cell组件，测试结果很令人满意。

所以，如果需要使用某个Com大量实例的话，尽量管理和维护一个实例，而对于其中的数据可以实行动态创建管理，速度上会有很好的效果。
另外，尽量声明一个 pMyInterface = ^IMyInterface 借口指针，参数传递或使用时，直接使用接口指针，这样可以减少调用计数函数_AddInft等，如果操作平凡也可以提高速度的。

 
 查看评语???    
 
 
 

(C) 版权所有，大富翁编程网站 1998-2004 粤ICP备05016107号
感谢您的惠顾，如有任何建议和意见，请 联系版主。2004.3.20