主要用到 DELPHI XE 10.2新增HASH函数class function TUtils.GetStringMD5(const AInPut: string): string; begin Result := THashMD5.GetHashString(AInPut).ToLower; end;