Borland Delphi一句话帮助

  1. 如果想你的程序能够正确处理异常情况的话，请引用SysUtils.pas单元，否则即使程序使用了try...except...也不能正确捕获异常。

   2. 字符串常量数组的初始化
const constarray:array [0..2] of string=(‘first’,’second’,’third’);

  3. 结构体初始化
type Tstructinit=record
A1:integer;
A2:array [0..2] of integer;
End;
Const m_structinit:Tstructinit=(A1:0;A2:(0,1,2));

  4. 多维数组的长度
var array2:array of array of integer;
setlength(array2,2,2);

  5. 使用Create和New开辟的空间都存在于堆中，不能自动释放，建议使用FreeAndNil释放。

6. SizeOf不适合于对象，返回的总是4；对于固定类型可以正确返回。

  7. Create(nil)需要手工释放，Creat(self)会随着拥有者的释放而释放。

  8. 进行删除操作的时候循环使用DownTo,会避免错误。

  9. 汉字的Ascii码>128，可以用它来判别是否为汉字。

  10.PostMessage只将消息放到消息队列中，需要排队等待处理。
SendMessage绕过消息队列直接发送到窗口过程,等到消息处理返回值才返回。

  11.鼠标移入移出消息：CM_MOUSEENTER,CM_MOUSELEAVE。

  12.通过发送消息，获取一个目录下所有文件的个数，并将所有文件的文件名显示在ListBox控件中
const
  DIRATTR = DDL_READWRITE or DDL_READONLY or DDL_ARCHIVE;

  ListBox1.Items.Clear;
  SendMessage(ListBox1.Handle, LB_DIR, DIRATTR, Integer(PChar('C/*.*')));
  FileNum := ListBox1.Items.Count;