zhang52088的博客

function   ByteType(const   S:   string;   Index:   Integer):   TMbcsByteType;     告诉你一个非常有用的函数。     bytetype     它可以判断一个字符串中，某个   Char   是单个字母，还是双字节的前一位或     后一位。     mbSingleByte   单字母   ...

1. $IFDEF 等同于 $IF DEFINED(...) : 它们的结束分别是: $ENDIF、$IFEND; 例子中的 VER200 是 Delphi 2009 的标识. begin {$IFDEF VER200} ShowMessage('这是 Delphi 2009'); {$ENDIF} {$IF DEFINED(VER200)} ShowMessa...

absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var Str: string[32]; StrLen: Byte absolute Str; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str := 'abc'; Edit1....

index //Index用于在属性中标识序号, 以便用相同的属性方法(Get,Set)对不同的属性进行操作. type 　TForm1 = class(TForm) 　private 　　function GetInfo(const Index: Integer): Longint; 　　procedure SetInfo(const Index: Integer; const Value: L...

  virtual //Virtual用于声明一个虚方法, //虚方法可以被覆盖, 并且可以使程序运行速度尽可能的快(区别于Dynamic). procedure X(i: Integer); virtual;   while //While关键字用于引出While循环语句, 循环前先进行循环条件的判断, 如果条件为真则执行循环. i := 0; while i < 100 do be...