delphi 10.1 Berlin 中使用自带的 MD5 校验

uses

System.Hash;//要引用这个单元哈

var

  Digest: TBytes;

  MD5: THashMD5;

  MD5Buf: TBytes;

  params: string;

begin

  SetLength(MD5Buf, Length(...));//做一些自己爱做的处理

  MD5.Reset;

  MD5.Update(MD5Buf);

  Digest := MD5.HashAsBytes; //返回 TBytes

  params := MD5.HashAsString;//返回 string

end;

　　很愉快的就得到结果了，无论是要字符串形式还是要别的。

因为从 delphi XE5 开始，一波隆就开始废弃了 ShortString AnsiString AnsiChar PAnsiChar PPAnsiChar UTF8String PUTF8String RawByteString PRawByteString 等（当然，如果依依不舍还是有补丁可以下载的，但根本没必要，旧的不去，新的不来），以前的还需要第三方的单元，现在越来越简单的自带了。

补丁下载参见：http://andy.jgknet.de/blog/2013/10/the-return-of-the-byte-strings/