Delphi 6重温

形参的顺序主要要考虑寄存器调用规则。
最常用的参数应当作为第一个参数,按使用频率依次从左到右排。
输入参数位于输出参数之前。
范围大的参数应当放在范围小的参数之前。例如:
S o m e P r o c ( A P l a n e t , A C o n t i n e n t , A C o u n t r y, A S t a t e , A C i t y ) .
有些则例外。例如,在事件处理过程中,TO b j e c t类型的S e n d e r参数往往是第一个要传递的参数。
-----------------------------------
当两个单元中含有相同名称的例程时,如果调用该例程,实际被调用的是Uses 子句中较后出现的
那个单元中的例程。为避免这种情况,可在方法名前加想要的单元名,例如:
S y s U t i l s . F i n d C l o s e ( S R ) ;
或Wi n d o w s . F i n d C l o s r ( H a n d l e ) ;
------------------------------------------
全局数据可在声明时直接初始化为一个值。注意,所有全局变量自动进行零初始化,因此,不要
将全局变量初始化为诸如0、n i l、或U n a s s i g n e d等空值。
------------------------------------------
不鼓励使用R e a l类型,因为它只是为了与老的P a s c a l代码兼容而保留的。通常情况下,对于浮点
数应当使用D o u b l e。D o u b l e可被处理器优化,是I E E E定义的标准的数据格式。当需要比D o u b l e提供的
范围更大时,可以使用E x t e n d。E x t e n d是i n t e l专用的类型,J a v a不支持。当浮点变量的物理字节数很重
要时(可能使用其他语言编写D L L ),则应当使用S i n g l e
------------------------------------------
3. 枚举型
枚举类型名必须代表枚举的用途。名称前要加T字符作为前缀,表示这是个数据类
------------------------------------------
数组类型名应表达出该数组的用途。类型名必须加字母T为前缀。如果要声明一个指向数组类型
的指针,则必须加字母P为前缀,且声明在类型声明之前。例如:
t y p e
P C y c l e A r r a y = ^ T C y c l e A r r a y ;
TCycleArray=array[1..100] of integer;
------------------------------------------
数组类型名应表达出该数组的用途。类型名必须加字母T为前缀。如果要声明一个指向数组类型
的指针,则必须加字母P为前缀,且声明在类型声明之前。例如:
t y p e
P C y c l e A r r a y = ^ T C y c l e A r r a y ;
TCycleArray=array[1..100] of integer;
------------------------------------------
The case statement

case I of
  1..5: Caption := 'Low';
  6..9: Caption := 'High';
  0, 10..99: Caption := 'Out of range';
else
  Caption := '';
end;

is equivalent to the nested conditional

if I in [1..5] then
  Caption := 'Low'
  else if I in [6..10] then
    Caption := 'High'
    else if (I = 0) or (I in [10..99]) then
      Caption := 'Out of range'
      else
        Caption := '';

Other examples of case statements:

case MyColor of
  Red: X := 1;
  Green: X := 2;
  Blue: X := 3;
  Yellow, Orange, Black: X := 0;
end;
case Selection of
  Done: Form1.Close;
  Compute: CalculateTotal(UnitCost, Quantity);
else
  Beep;
end;
------------------------------------------
) 虚拟方法与动态方法
当你希望一个方法能被派生类覆盖,应当使用虚拟方法。如果类的方法要被多个派生类直接或间
接地使用,则应当用动态方法。例如,某一个类含有一个被频繁覆盖的方法,并有1 0 0个派生类,则
应将方法定义为动态的,这样可以减少内存的开销。
(4) 抽象方法
如果一个类要创建实例,则不要使用抽象方法。抽象
------------------------------------------
数据模块文件的名称应当表达出数据模块的作用,且具有D M后缀。例如,C u s t o m e r s数据模块的
文件名叫C u s t o m e r s D M . d f m。
------------------------------------------
不要在I n i t i a l i z a t i o n部分放置花费时间很多的代码。否则,将导致应用程序启动时显得很慢。
------------------------------------------
Finalization部分
确保释放所有在I n i t i a l i z a t i o n部分中分配的资源。
------------------------------------------
Copyright @ YEAR by AUTHORS
}
------------------------------------------
所有源文件和项目文件都应具有文件头。一个正确的文件头应包含以下信息:
{
Copyright @ YEAR by AUTHORS
}
------------------------------------------
窗体单元文件的名称与相应的窗体名称相同。例如, A b o u t窗体的单元名称叫A b o u t F r m . p a s。主窗
体的单元文件名称叫A b o u t F r m . p a s。
3. 数据模块单元
数据模块单元文件的名称与相应的数据模块名称相同。例如,数据模块单元的名称叫C u s t o m e r s -
D M . p a s。
4. 通用的单元
通用单元的名称应当表达出它的用途。例如,一个实用工具单元的名称叫u g U t i l i t i e s . p a s,包含全
局变量的单元名称叫C u s t o m e r G l o b a l s . p a s。
注意,一个项目中单元名称必须是唯一的。通用单元名不能重名。
5. 组件单元
组件单元应放在单独的路径中,以表明它们是定义组件的单元。它们一般与项目不放在同一路径
下。单元文件名称应表达出其内容。
------------------------------------------
除非特别原因,只有主窗体才自动生成。其他所有窗体必须从Project Options对话框的自动生成列
表中删除
------------------------------------------
组件单元只能含有一个主要组件,这是指出现在组件选项板上的组件。其他辅助性的组件或对象
也可以包含在同一单元中。
3. 注册单元
组件的注册过程应当从组件单元中移走,放在一个单独的单元中。这个注册单元用于注册所有组
件、属性编辑器、组件编辑器、向导等。
组件注册应当在设计期包中进行。因此,注册单元应当包含在设计期包而不是运行期包中。
建议注册单元这样命名:
X x x R e g . p a s
其中, X x x为3个字符前缀,以标识公司、个人或其他实体。例如,本书中的注册单元命名为
D d g R e g . p a s。
------------------------------------------
组件类型的命名标准
组件的命名与类的命名类似,只不过它有3个字符的前缀。这些前缀用以标识公司、个人或其他
实体。例如,一个时钟组件可以这样声明:
T D d g C l o c k = c l a s s ( T C o m p o n e n t )
注意,作为前缀的3个字符要小写。
2. 组件单元
组件单元只能含有一个主要组件,这是指出现在组件选项板上的组件。其他辅助性的组件或对象
也可以包含在同一单元中。
------------------------------------------
if Password <> CorrectPassword then
  raise EPasswordInvalid.Create('Incorrect password entered');
------------------------------------------
begin
  ListBox1.Items.Add('a string');{ add a string to list box }
  ListBox1.Items.Add('another string');{ add another string... }
  ListBox1.Items.Add('still another string');{ ...and a third string }
  try
    Caption := ListBox1.Items[3];{ set form caption to fourth string }
  except
    on EStringListError do
      ShowMessage('List box contains fewer than four strings');

  end;
end;
------------------------------------------
or example, consider the following declaration:

type
  EMyException = class(Exception);

If you raise EMyException but don't provide a specific handler for it, a handler for Exception (or a default exception handler) will still handle it. Because the standard handling for Exception displays the name of the exception raised, you can see that it is your new exception that is raised.

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值