2013-03-06

QuotedStr 字符串两边加上两个'

Length 取长度不限于字符串 数组也可以

IdUDPServer.BroadcastEnabled开启可使用 255.255.255.255 进行广播

IdUDPServer Read ReadBuffer 流(TStream)的ReadBuffer传入对象不能是动态数组，否则会出错

BinToHex字符串转换为16进制字符串 HexToBin16进制字符串转换为字符串

function CalcCRC(Data: PChar; size: Integer): Word;//CRC16校验算法 Delphi版 应传入相应字符串【非16进制字符串】跟其字符串大小
var
 i: Integer;
 CheRc : Word;
begin
 CheRc :=0;
 for i:=0 to size-1 do  //循环校验
 begin
  CheRc :=(CheRc shr 8) xor Table[((CheRc xor Byte(Data[i]))and $FF)];
 end;
 Result := CheRc;
end;

procedure Register;//过程名第一个字母必须大写 不然无法注册