• 函数类型：　自定义函数

• 函数说明：

计算字符串Hash值

• 代码如下：

function GetCrc32(s: string; Seed: LongInt): Integer; var Count: Integer; CrcVal: longword; begin CrcVal := Seed; for Count := 1 to Length(s) do CrcVal := Table[Byte(CrcVal xor longword(Ord(s[Count]))) ] xor ((CrcVal shr 8) and $00FFFFFF); Result := not CrcVal; end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》